• Дан одномерный массив, состоящий из 10 элементов. Значение элементов вводятся с клавиатуры. Значения могут быть как положительные так и отрицательные. Найдите сумму четных положительных элементов. Результат вывести на форму

Ответы 2

  • program ex;var a, sum, i: integer; g: array [1..10] of integer;begin sum := 0; for i := 1 to 10 do begin read(a); g[i] := a; if (g[i] mod 2 = 0) then sum := sum + g[i]; end; write(sum)end.
  • program ex;var  a, sum, i: integer;  g: array [1..10] of integer;begin  sum := 0;  for i := 1 to 10 do   begin    read(a);    g[i] := a;    if (g[i] mod 2 = 0) then      sum := sum + g[i];  end;  write(sum)end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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