Program znanija_com;
const
n = 5;
m = 5;
rnd = 9;
type
tArray = array[1..n, 1..m] of integer;
var
arr : tArray;
i,j, sum_ch, sum_nch, sum_diag, max_num, max_index_1, max_index_2 : integer;
begin
randomize;
writeln ('Исходная матрица:');
for i:=1 to n do begin
for j:=1 to m do begin
arr[i,j] := random(rnd);
if arr[i,j] mod 2 = 0 then sum_ch := sum_ch + 1
else sum_nch := sum_nch + 1;
write(arr[i, j], ' ');
end;
writeln();
end;
for i:=1 to n do
sum_diag := sum_diag + arr[i,i];
max_num := arr[1,1];
max_index_1 := 1;
max_index_2 := 1;
for i:=1 to n do begin
for j:=1 to m do begin
if arr[i, j] > max_num then begin
max_num := arr[i, j];
max_index_1 := i;
max_index_2 := j;
end;
end;
end;
writeln('Колечество четных элементов равно ', sum_ch);
writeln('Колечество нечетных элементов равно ', sum_nch);
writeln('Сумма главной диаганили равна ', sum_diag);
writeln('Максимальное число равно ', max_num, ' Находится [',max_index_1, ', ', max_index_2, ']');
readln();
end.
<span>uses</span> crt;
<span>var</span> a<span>,</span>mn<span>,</span>n<span>,</span>imn<span>:</span><span>integer</span>;
<span>begin</span>
clrscr;
<span>writeln</span><span>(</span><span>'Введите натуральные числа, окончание ввода 0:'</span><span>)</span>;
<span>repeat</span><span>readln</span><span>(</span>mn<span>)</span>;
<span>until</span> mn><span>0</span>;
n<span>:=</span><span>1</span>;
imn<span>:=</span><span>1</span>;
<span>repeat</span>
<span>repeat</span>
<span>readln</span><span>(</span>a<span>)</span>;
<span>until</span> a><span>=</span><span>0</span>;
n<span>:=</span>n<span>+</span><span>1</span>;
<span>if</span><span>(</span>a<><span>0</span><span>)</span><span>and</span><span>(</span>a<mn<span>)</span><span>then</span>
<span>begin</span>
mn<span>:=</span>a;
imn<span>:=</span>n;
<span>end</span>;
<span>until</span> a<span>=</span><span>0</span>;
<span>write</span><span>(</span><span>'Минимальное из чисел, не считая 0='</span><span>,</span> mn<span>,</span><span>' его номер='</span><span>,</span>imn<span>)</span>;
<span>readln</span><span>end</span>.
Будет выведена только 9(как строка)
Так как переменная I у тебя задается числом 5, а в условии цикла i строго меньше 5
Соотвественно он не будет просто исполнятся
