Проверьте, ! массивы, паскаль. условие: задать случайным образом 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.

Mykolaj8    3   19.06.2019 09:30    1