Дан двумерный массив A(n ×m) . Найти

+ 0 -

San9zav31rus

01 нояб. 2014 г., 10:30:54 (9 лет назад)

uses crt;
var a: array [1..100,1..100] of integer;
    x,y,n,m,k:integer;
begin
     write('n:'); readln(n);
     write('m:'); readln(m);
     for x:=1 to n do
     begin
         for y:=1 to m do
         begin
         a[x,y]:=random(10);
         write(a[x,y]:3);
         end;
         writeln;
     end;
     y:=m;
     for x:=1 to n do
         if a[x,y]>5 then inc(k);
     writeln;
     writeln('Количество элементов больших 5 в последнем столбце: ',

+ 0 -

Vanaygor1982

01 нояб. 2014 г., 11:13:39 (9 лет назад)

элементы с клавиатуры задаются или рандомно?

+ 0 -

Dimanda92

01 нояб. 2014 г., 13:08:26 (9 лет назад)

рандомно

+ 0 -

AlexanderAruty

01 нояб. 2014 г., 14:38:01 (9 лет назад)

в каком диапазоне?

+ 0 -

Maks125679

01 нояб. 2014 г., 15:53:38 (9 лет назад)

в любом