Const nx = 20;mx = 30; var A:array[1..nx,1..mx]of integer; i,j,n,m,min,z:integer; sum:array[1..nx]of integer; begin write('Введите число строк и столбцов');Readln(n,m);min:=1000; for i:=1 to n do begin sum[i]:=0; for j:=1 to n do begin A[i,j]:= random(100)-50; write(A[i,j]:5);sum[i]:= sum[i] + A[i,j];end;writeln; if min > abs(sum[i]) then begin min := abs(sum[i]);z:=i;end; end;writeln;for i:=1 to n do writeln('i= ',i,' sum = ', sum[i]:4);writeln; writeln('Ближе всего к нулю i= ',z,' sum = ', sum[z]:4);end.
Не совсем понял суть вопроса, но, скорее всего, задача состоит в том, чтобы подсчитать число итераций (количество прохождений цикла), поэтому, распишу такую постановку вопроса
а) for i:=1 to 2 do
В данном цикле переменная i принимает значение 1 и проводит итерации (повторения) до тех пор, пока не дойдёт до значения 2.
- первый проход (i равно единице)
- второй проход (i равно двум)
- конец
То есть, в этой циклической конструкции код исполнился 2 раза (т.к. i увеличивалось с единицы до двух)
б) for i:=2 to 3 do
В данном цикле переменная i принимает значение 2 и проводит итерации (повторения) до тех пор, пока не дойдёт до значения 3.
- первый проход (i равно двум)
- второй проход (i равно трём)
- конец
То есть, в этой циклической конструкции код исполнился 2 раза (т.к. i увеличивалось с двух до трёх)
в) for i:=1 to 3 do
В данном цикле переменная i принимает значение 1 и проводит итерации (повторения) до тех пор, пока не дойдёт до значения 3.
- первый проход (i равно единице)
- второй проход (i равно двум)
- третий проход (i равно трём)
- конец
То есть, в этой циклической конструкции код исполнился 3 раза (т.к. i увеличивалось с единицы до трёх)
Приношу извинения за то, что на русском языке, но украинский я не знаю :)
var A:array[1..nx,1..mx]of integer; i,j,n,m,min,z:integer; sum:array[1..nx]of integer;
begin
write('Введите число строк и столбцов');Readln(n,m);min:=1000;
for i:=1 to n do begin
sum[i]:=0;
for j:=1 to n do begin
A[i,j]:= random(100)-50;
write(A[i,j]:5);sum[i]:= sum[i] + A[i,j];end;writeln;
if min > abs(sum[i]) then begin min := abs(sum[i]);z:=i;end;
end;writeln;for i:=1 to n do
writeln('i= ',i,' sum = ', sum[i]:4);writeln;
writeln('Ближе всего к нулю i= ',z,' sum = ', sum[z]:4);end.
а) исполнился 2 раза
б) исполнился 2 раза
в) исполнился 3 раза
Объяснение:
Не совсем понял суть вопроса, но, скорее всего, задача состоит в том, чтобы подсчитать число итераций (количество прохождений цикла), поэтому, распишу такую постановку вопроса
а) for i:=1 to 2 do
В данном цикле переменная i принимает значение 1 и проводит итерации (повторения) до тех пор, пока не дойдёт до значения 2.
- первый проход (i равно единице)
- второй проход (i равно двум)
- конец
То есть, в этой циклической конструкции код исполнился 2 раза (т.к. i увеличивалось с единицы до двух)
б) for i:=2 to 3 do
В данном цикле переменная i принимает значение 2 и проводит итерации (повторения) до тех пор, пока не дойдёт до значения 3.
- первый проход (i равно двум)
- второй проход (i равно трём)
- конец
То есть, в этой циклической конструкции код исполнился 2 раза (т.к. i увеличивалось с двух до трёх)
в) for i:=1 to 3 do
В данном цикле переменная i принимает значение 1 и проводит итерации (повторения) до тех пор, пока не дойдёт до значения 3.
- первый проход (i равно единице)
- второй проход (i равно двум)
- третий проход (i равно трём)
- конец
То есть, в этой циклической конструкции код исполнился 3 раза (т.к. i увеличивалось с единицы до трёх)
Приношу извинения за то, что на русском языке, но украинский я не знаю :)
Надеюсь и правильно понял суть вопроса