• const n=20;
    var
    a:array [1..n] of integer;
    i,s,k:integer;
    begin
    s:=0;
    k:=0;
    Randomize;
    for i:=1 to n do
    begin
    a[i]:=random(50);
    write(a[i],' ');
    end;
    for i:=1 to n do if (a[i] mod 2 =0) then s:=s+a[i]
    else k:=k+a[i];
    writeln;
    writeln('Сумма четных элементов: ',s);
    writeln('Сумма нечетных элементов: ',k);
    end.
    НЕ МОГУ НАЙТИ ОШИБКУ ПОМОГИТЕ!!!!!!!!!!!!!!!!!!!!!!!

Ответы 0

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years