Дан массив a (15). Определите сумму элементов массива кратных 7

Question

Информатика

Гема

9 июня, 03:17

Дан массив a (15). Определите сумму элементов массива кратных 7

+3

Ответы (1)

Знаете ответ?

Лебния · Answer 1

uses crt;

var i, s:integer;

a:array[1 ... 15] of integer;

begin

s:=0;

for i:=1 to 15 do

begin

a[i]:=random (100) + 0;

if a[i] mod 7 = 0 then s:=s+a[i];

end;

writeln ('suma = ', s) ;

end.