Помогите нарисовать блок-схему алгоритма для написанной в паскаль программы: - вопрос №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.

Ответы

Вы ошиблись с разделом.
05.04.23
Сейчас на сайте
Здравствуйте, Андрей!

Задайте свой вопрос в резделе" Технологии".
Там точно вам  ответят . 





06.04.23

Вячеслав Карпов

Читать ответы
Посмотреть всех экспертов из раздела Медицина > Анестезиология
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store