Скачайте антивирус или к мастеру или!
Uses crt;const h=100;var a: array [1..h,1..h] of integer; n,x,y,max: integer;
begin write('Длина матрицы= '); readln(n); // Enter for x:=1 to n do for y:=1 to n do begin write('a[',x,',',y,']= '); readln(a[x,y]); end; // max:=a[1,1]; while x<>n do begin if a[x,x] > max then begin max:=a[x,x]; y:=x; end; inc(x); end; writeln('Максимальный элемент равен ',max,'.Его координаты (',y,';',y,').'); <span>end.</span>
102400 * 2 = 204800 байт информации, 204800 * 8 (бит в байте) = 1638400 / 64 = 25600 бит / секунда
A b d
7 4 6
7 5 5
7 6 4
8 2 7
8 3 6
8 4 5
8 5 4
8 6 3
8 7 2
9 1 7
9 2 6
9 3 5
9 4 4
9 5 3
9 6 2
9 7 1
10 1 6
10 2 5
10 3 4
10 4 3
10 5 2
10 6 1
11 1 5
11 2 4
11 3 3
11 4 2
11 5 1
12 1 4
12 2 3
12 3 2
12 4 1
13 1 3
13 2 2
13 3 1
14 1 2
14 2 1
15 1 1
Ответ 37
Program qq;
var col, out, i: integer;
arr: array[1..100] of integer;
begin
write('Количество элементов: ');
readln(col);
write('Введите числа: ');
out := 0;
for i := 1 to col do readln(arr[i]);
writeln;
write('Положительных чисел: ');
for i := 1 to col do begin
if(arr[i] > 0) then out := out + 1;
end;
write(out);
end.
-----
В вашем же решении вы не указали переменную k, т.е. у вас нет k := 0; и после выполнения условия if не нужно писать end;