Question

Помогите с кодом по паскалю.→Нужно чтобы ответ который показывается было написано первый столбец столько положительных чисел а если нет положительных чисел в столбце то писало нет положительных чисел в этом столбце←Столбцы пронумеровать  Изначально задание было таково что нужно чтобы находило сколько положительных чисел в каждом столбце Даю 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.

Answer 1

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.

Answer 2

Для того чтобы ваша программа подсчитывала количество положительных чисел в каждом столбце и выводила результат в формате, который вы описали, вам нужно внести некоторые изменения в ваш код. Вот исправленный вариант вашей программы:

pascalCopy code
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;

  for j := 1 to m do
    b[j] := 0;

  for j := 1 to m do
  begin
    for i := 1 to n do
    begin
      if a[i, j] > 0 then
        b[j] := b[j] + 1;
    end;
  end;

  for j := 1 to m do
  begin
    Write('Столбец ', j, ': ');
    if b[j] > 0 then
      Write(b[j], ' положительных чисел')
    else
      Write('нет положительных чисел в этом столбце');
    Writeln;
  end;

  Readln;
end.

В этой версии программы мы сначала инициализируем массив b нулями для подсчета положительных чисел в каждом столбце, а затем проходим по всем элементам массива a, подсчитывая положительные числа в каждом столбце. Затем мы выводим результат, указывая номер столбца и количество положительных чисел в нем, либо сообщая, что положительных чисел в столбце нет.