Кто может составить алгоритм по проге? Алгоритм нужен для отчета если вам это интересно)

@Nikita51 · Регистрация: 04.04.2018

Студворк — интернет-сервис помощи студентам

Pascal

uses crt;
var a:array[1..100,1..100] of integer;
b:array[1..100] of integer;
i,j,m,n:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
Write('m=');
Readln(m);
Writeln;
for i:=1 to m do
Write(i:4);
Writeln;
Writeln('-'*4*m);
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20)-10;
Write(a[i,j]:4);
end;
Writeln;
end;
Writeln;
b[j]:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>0 then
b[j]:=b[j]+1;
for i:=1 to m do
if b[i]>0 then Writeln('В столбце ',i,' положительных чисел ',b[i])
else Writeln('В столбце ',i,' нет положительных чисел ');
Readln;
end.

@ZX Spectrum-128 · 11.04.2018, 19:41

Кто может составить алгоритм по проге?

Может быть, блок-схему? Поиск по форуму по ключевым словам "создание блок-схем по коду".

Алгоритм нужен для отчета если вам это интересно)

Нет. Не интересно.

@ZX Spectrum-128 6806 / 4565 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	11.04.2018, 19:41	2
	Кто может составить алгоритм по проге? Может быть, блок-схему? Поиск по форуму по ключевым словам "создание блок-схем по коду". Алгоритм нужен для отчета если вам это интересно) Нет. Не интересно. 0

Опции темы