Составить в Паскале:
Составить программу которая подсчитает количество нечетных элементов массива состоящего из 15 целых чисел (желательно ещё составить блок-схему)
Ответы на вопрос
Ответил vlados400125
0
program myprogram;
var
x, i: integer;
a: array [1..15] of integer;
BEGIN
for i:=1 to 15 do read(a[i]); // вводите числа массива
for i:= 1 to 15 do if a[i] mod 2 <> 0 then x:=x+1;
writeln(x);
END.
var
x, i: integer;
a: array [1..15] of integer;
BEGIN
for i:=1 to 15 do read(a[i]); // вводите числа массива
for i:= 1 to 15 do if a[i] mod 2 <> 0 then x:=x+1;
writeln(x);
END.
Ответил vlados400125
0
схему постараюсь отправить личным сообщением
Ответил enigmatica
0
Спасибо большое!
Ответил enigmatica
0
Жду
Ответил enigmatica
0
Чем можно заменить команду mod?
Новые вопросы