Как вывести элементы с четными значенииями и четными индексами в паскале?
Как вывести элементы с четными значенииями и четными индексами в паскале?
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.Net 3.0, сборка 1064
var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do Read(a[i]);
i:=2;
while i<=10 do begin
if a[i] mod 2 = 0 then Write(a[i],' ');
i:=i+2
end
end.
Тестовое решение:
4 5 6 3 9 8 4 10 7 2
8 10 2
Не нашли ответ?
Похожие вопросы