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

помогите неделю болел​

  1. Ответ
    Ответ дан Аккаунт удален

    Program arrSum;

    var a:array of integer;

    i,k:integer;

    begin

    setLength(a,30);

    for i:=0 to High(a) do

    begin

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

    end;

    for i:=0 to 6 do

    k:= k + a[i];

    writeln(k);

    end.

Самые новые вопросы