• составьте программу вычисления суммы четных элементов одномерного массива.Решить в паскале

Ответы 1

  •             Const n=4;Var a:array [1..n] of integer;s,t:integer;begin   randomize;    for t:=1 to n do  begin            a[t] := random(100);            write(a[t]:6);            end;            writeln;s:=0;for t:=1 to n doif a[t] mod 2=0 then s:=s+a[t];writeln('summa=',s);end.
    • Автор:

      ryan
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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