Регистрация
Niiiiklou
21.04.2020 06:28
Информатика
Есть ответ 👍

Массив а[1..20] заполнен случайными числами [0; 10]. найти сумму элементов с четными номерами

144
491
Посмотреть ответы 2

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

nkaracheva
nkaracheva
4,4(39 оценок)

program pr1; varm: array[1..100] of integer; i,sum: integer; beginrandomize; for i: =1 to 20 dom[i]: =random(10); for i: =1 to 20 dobeginwrite(m[i],' '); if i mod 2 =0 then sum: =sum+m[i]; end; writeln(''); writeln(sum); readln; end.

Муся000
Муся000
4,8(95 оценок)
Var a: array[1..15] of integer; i: integer; begin for i: =1 to 10 do begin a[i]: =random(5,15); if a[i] mod 2 < > 0 then write(a[i],' '); end; end.

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