Найди все четные по значению элементы массива. Вывести на экран значение элементов и их индекс. Ввод элементов массива с клавиатуры. Программа пишется на языке Паскаль
Var a: array[1..5]of integer; i: integer;
begin
for i := 1 to 5 do
read(a[i]);
for i := 1 to 5 do
if ((a[i] mod 2) = 0) then writeln(число - ,a[i], индекс - ,i);
end.
abs pascal
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
