Проверьте, ! массивы, паскаль. условие: задать случайным образом 10 элементов массива: целые числа из интервала от -5 до 50. найти: 1) сумму нечётных элементов; program massivsumma; var a : array[-5..50] of integer; n : integer; summa : integer; begin randomize; write ('n='); readln (n); summa: =0; for n: = 1 to 10 do begin write ('введите число'); readln (a[n]); if a[n] mod 1 = 0 then summa: =summa+(a[n]); writeln('сумма элементов с нечетными номерами: ',summa); end; end.

184

398

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

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

medinehuseynzade

Информатика

4,5(16 оценок)

Азачем -5 начало массива? и не мод 1, а мод 2

Andreyко

Информатика

4,4(6 оценок)

1) круг

2) квадрат

3) линия

4) дуга

5) выбрать

6) компонент

7) заливка

8) ластик

Объяснение:

150 000+ пользователей

Оформить подписку