Регистрация
Alisarive
20.01.2023 20:45
Информатика
Есть ответ 👍

РЕШИТЬ 1 ЗАДАНИЕ И ПОСЛЕДНЕЕ.

173
175
Посмотреть ответы 1

Ответы на вопрос:

Karina11111111115
Karina11111111115
4,8(89 оценок)

vara: array [1..1000] of integer; i,n,sum: integer; beginrandomize; write('введите максимальное число массива: '); readln(n); beginfor i: =1 to n doa[i]: =random (20)+20; end; writeln('массив состоит из следующих чисел: '); for i: =1 to n dowrite(' ',a[i]); writeln(); sum: =0; for i: =1 to n doif a[i] mod 2 = 0 then sum: =a[i]+sum;

writeln('сумма всех чётных чисел равна : ',sum); end.

Популярно: Информатика