Вопрос по информатике:
Помогите с кодом по паскалю.→Нужно чтобы ответ который показывается было написано первый столбец столько положительных чисел а если нет положительных чисел в столбце то писало нет положительных чисел в этом столбце←Столбцы пронумеровать
Изначально задание было таково что нужно чтобы находило сколько положительных чисел в каждом столбце
Даю 30
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);
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
Write(b[i]:4);
Readln;
end.
- 10.01.2016 14:22
- Информатика
- remove_red_eye 1944
- thumb_up 26
Ответы и объяснения 1
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.
- 11.01.2016 19:33
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.