30 ! , заранее ) от этой зависит моя оценка за четверть, поэтому как можно быстрее написать решение, вот сама : составьте программу на языке паскаль. имеется массив на 20 чисел, его необходимо заполнить и найти сумму чисел, которые больше 30. свое решение есть, но я вообще не шарю в информатике.

dima1025 dima1025    2   04.10.2019 15:30    1

Ответы
zhenya28081999 zhenya28081999  09.10.2020 19:52

const n=20;

var a:array [1..n] of integer;

i,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(31)+20;

write(a[i]:3,' ');

if a[i] > 30 then s:=s+a[i]

end;

writeln;

write('Сумма чисел, больше 30: ',s)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика