Задать вопрос
11 января, 08:52

Помогите с кодом по паскалю.→Нужно чтобы ответ который показывается было написано первый столбец столько положительных чисел а если нет положительных чисел в столбце то писало нет положительных чисел в этом столбце←Столбцы пронумеровать

Изначально задание было таково что нужно чтобы находило сколько положительных чисел в каждом столбце

Даю 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.

+3
Ответы (1)
  1. 11 января, 11:07
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите с кодом по паскалю.→Нужно чтобы ответ который показывается было написано первый столбец столько положительных чисел а если нет ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы