profile
Опубликовано 4 года назад по предмету Информатика от nicvodol

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

  1. Ответ
    Ответ дан Gluk1

    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.