Const n=15;
var a:array[1..n]of integer;
i,min,k:integer;
begin
for i:=1 to n do a[i]:=Random(100)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
min:=a[1];
for i:=1 to n do
if (a[i]<min) and (a[i]>0) then begin
min:=a[i];
k:=i;
end;
write('минимальный из положительных элементов массива ',min,', его порядковый номер ',k);
<span>end.</span>
Программа написана на языке Pascal
var
x: integer;
begin
readln(x);
if x mod 5 = 0 then
writeln(x * x)
else
writeln(x * x * x)
end.
Обозначим за m ( = 2003) число строк в таблице, n ( = 2016) - число столбцов
a[i,j] - число, стоящее в i-ой строке, j-ом столбце в таблице, заполненной по горизонталям, b[i,j] - по вертикалям ( i = 1..m, j = 1..n)
Тогда a[i,j] = n*(i-1) + j, b[i,j] = m*(j-1) + i
Условие совпадения чисел в соответствующих клетках: a[i,j] = b[i,j]
2016*(i-1) + j = 2003*(j-1) + i
2016i - 2016 + j = 2003j - 2003 + i
2015i = 2002j + 13 {все числа делятся на 13}
155i = 154j + 1
Общее решение этого уравнения:
i = 1 + 154k
j = 1 + 155k
k = 0..13 (при k < 0 и при k > 13 i и j выходят из допустимого диапазона)
Т.е. всего 14 решений.
Ответ: 14