Составьте программу ввода с клавиатуры элементов массива а[1..10] и вывода на экран элементов с четными индексами

V73663 V73663    1   06.08.2019 04:20    0

Ответы
MaxonA MaxonA  04.10.2020 00:30
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика