Переведите код 101110 101110 101110 1110100 1101111 1100100 1100001 1111001 101110 101110 101110

Question

Информатика: Переведите код 101110 101110 101110 1110100 1101111 1100100 1100001 1111001 101110 101110 101110

Влад200619 · Accepted Answer

Const
   M = 3;
   N = 4;
Var
   A:array[1..M,1..N] of integer;
   i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to M do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(71)-30;
        Write(A[i,j]:3,' ')
        End;
    WriteLn;
    End;
Write('Номер столбца: ');
For j:= 1 to N do
    Write(j:3,' ');
WriteLn;
Write('Искомое кол-во:');
For j:= 1 to N do
    Begin
    k:=0;
    For i:= 1 to M do
        if A[i,j]>0 then k:=k+1;
    Write(k:3,' ');
    End;
End.

Пример:
Исходный массив:
33 -21 -24   4
-20 28 -29 25
-15 -1 11   3
Номер столбца:   1   2   3   4
Искомое кол-во: 1   1   1   3

MOGZ ответил