Напишите программу с массивами Дан одномерный - вопрос №1294911810 от derver 29.10.2020 18:15

Question

Информатика: Напишите программу с массивами Дан одномерный массив, состоящий из 10 элементов. Пользователь вводит элементы массива. Вывести массив на экран в строку (перед выводом результата экран очистить). Сосчитать и вывести на экран сумму нечетных элементов массива. Входные данные -9 6 2 7 3 -4 -6 0 2 4 Выходные данные -9 6 2 7 3 -4 -6 0 2 4 1

derver · Answer

var a:array[1..10] of integer; sumer, i:integer;Begin for i:=1 to 10 do readln(a[i]); for i:=1 to 10 do begin write(a[i], ); if (a[i] mod 2 = 1) then sumer:= sumer + a[i]; end; write( , sumer);End....