Помогите написать программу в паскале! Написать программу в паскале: В одномерном массиве из 10 целых чисел вычислить сумму четных чисел …

Вопрос от пользователя: Катяха

Помогите написать программу в паскале!

Написать программу в паскале:

В одномерном массиве из 10 целых чисел вычислить сумму четных чисел …

Ответ: Юнонка

Var a: array[1 … 10] of integer; sum, i: integer; beginsum:=0; for i:=1 to 10 do begin readln (a[i]); if a[i] mod 2=0 then sum: = sum+a[i]; end; write (sum); end.

Беликова Ирина

Учитель физики, информатики и вычислительной техники. Победитель конкурса лучших учителей Российской Федерации в рамках Приоритетного Национального Проекта "Образование".

Оцените автора
Добавить комментарий