Для какой из задач приведённых ниже разработан данный фрагмент программы?
begin
…
S1:=0;
for i:=1 to N do
begin
for j:=1 to M do
bgin
S:=0;
if B[i, j] <> 0
then S:=S+1
else S:=0;
end;
S1:=S1+S;
end;
writeln(′S= ′, S1);
end.

  • Дан массив B из M строк и N столбцов. Напишите программу на языке Паскаль, которая определяет количество ненулевых элементов в каждом столбце массива.
  • Дан массив B из M строк и N столбцов. Напишите программу на языке Паскаль, которая определяет количество ненулевых элементов в массиве.
  • Дан массив B из N строк и M столбцов. Напишите программу на языке Паскаль, которая определяет количество ненулевых элементов в каждой строке массива
  • Дан массив B из N строк и M столбцов. Напишите программу на языке Паскаль, которая определяет количество ненулевых элементов в последней строке массива.
  • Дан массив B из N строк и M столбцов. Напишите программу на языке Паскаль, которая определяет количество ненулевых элементов в последнем столбце массива.
Для просмотра статистики ответов нужно войти.