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

кам81 кам81    3   21.05.2019 20:50    4

Ответы
Карина12345654321 Карина12345654321  01.10.2020 05:12

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.

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