Question

Задан массив размером 30 элементов.Подсчитать число и сумму положительных элементов в нем,В Паскаль.Через рандом чисел!!

Answer 1

const max=30;

var c:array[1..max,1..max] of integer;

m,n,i,j,p,k,s:integer;

begin

randomize;

repeat

write('Количество строк от 2 до ',max,' m=');

readln(m);

until m in [2..max];

repeat

write('Количество столбцов от 2 до ',max,' n=');

readln(n);

until n in [2..max];

writeln('Исходная матрица');

for i:=1 to m do

begin

for j:=1 to n do

begin

c[i,j]:=-10+random(21);

write(c[i,j]:4);

end;

writeln;

end;

write('P=');

readln(p);

k:=0;

for i:=1 to m do

begin

s:=0;

for j:=1 to n do

if c[i,j]>0 then s:=s+c[i,j];

if s>p then k:=k+1;

end;

write('Количество строк по условию=',k)

end.