Медицина
Помогите нарисовать блок-схему алгоритма для написанной в паскаль программы: - вопрос №5120361
Program Zadanie_2;
const n=3; m=4;
var Z: array[1..n, 1..m] ofinteger=((2,0,1,4), (4,4,-4,2),(-5,-5,-5,0));
zeroCols: array[1..m] of boolean;
i,j: integer;
begin
writeln ('Исходный массив:');
for i:=1 to n do begin
for j:=1 to m do
write (Z[i,j]:3);
writeln
end;
for j:=1 to m do begin
zeroCols[j]:=false;
for i:=1 to n do begin
if Z[i,j]=0 then zeroCols[j]:=true;
end;
end;
writeln ('Номера столбцов с нулевыми элементами:');
for j:=1 to m do begin if zeroCols[j] then write(j:3);
end;
writeln
end.
апрель 5, 2023 г.
-
Всего ответов: 2
-
Вы ошиблись с разделом.
-
Здравствуйте, Андрей!
Задайте свой вопрос в резделе" Технологии".
Там точно вам ответят .
