Составьте программу ввода с клавиатуры элементов массива а[1..10] и вывода на экран элементов с четными индексами
Составьте программу ввода с клавиатуры элементов массива а[1..10] и вывода на экран элементов с четными индексами
Гость
Ответ(ы) на вопрос:
Гостьvar
i: integer;
ar: array[1..10]of integer;
begin
for i := 1 to 10 do read(ar[i]);
for i := 1 to 10 do if(i mod 2 = 0) then write(ar[i],' ')
end.
Не нашли ответ?
Похожие вопросы