Вычислите сумму всех элементов массива, исключая элементы кратные 5. На языке Паскаль.

Question

Информатика

Нинуша

6 ноября, 23:35

Вычислите сумму всех элементов массива, исключая элементы кратные 5. На языке Паскаль.

+4

Ответы (1)

Знаете ответ на вопрос?

Нюся · Answer 1

Program n1;

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

i: integer;

sum: real;

begin

randomize;

sum:=0;

for i:=1 to 10 do begin

a[i]:=random (21) - 10;

write (a[i],' ') ;

if a[i] mod 50 then sum:=sum+a[i];

end;

writeln;

write (sum) ;

end.