Составьте на языке программирования Паскаль программу, которая считает сумму нечетных элементов массива а, состоящего из 10 элементов. Массив заполняется элементами с клавиатуры​

Няша200411 Няша200411    1   13.12.2020 12:29    4

Ответы
Prinsess1 Prinsess1  12.01.2021 12:35

var a: array [1..10] of integer;

i,s: integer;

begin

 s:=0;

 for i:=1 to 10 do readln (a[i]);

 for i:=1 to 10 do if a[i] mod 2=1 then s:=s+a[i];

 writeln (s)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика