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