Регистрация
kristinandrosov
09.12.2022 22:58
Информатика
Есть ответ 👍

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

118
146
Посмотреть ответы 2

Ответы на вопрос:

Onoo
Onoo
4,5(82 оценок)

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.

vlada051199
vlada051199
4,7(96 оценок)
Впятеричной системе счисления 432: 12 =  31.32412032412032412032412032412032412032412032412 032а если сокращать то: 31.3

Популярно: Информатика