дан массив из 8 целых чисел. составить программу вычисления суммы элементов массива меьнших 10

Ответ

Автор - AnonimusPro

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

i,s: integer;

begin

randomize;

s:=0;

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

for i:=1 to 8 do begin

a[i]:=random(41)-20;

if a[i]<10 then s:=s+a[i];

write(a[i],' ');

end;

writeln;

write('сумма: ',s);

end.

Автор - BobbyFresnel

===== PascalABC.NET =====

begin

var a := ArrRandom(8, -20, 20);

a.Println;

a.Where(p -> p < 10).Sum.Println

end.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.