Создать массив на четных местах в котором стоят единицы а на нечетных местах числа равные остатку от деления своего номера 5

Question

Информатика

Порфир

21 марта, 09:09

Создать массив на четных местах в котором стоят единицы а на нечетных местах числа равные остатку от деления своего номера 5

+3

Ответы (1)

Знаете ответ на вопрос?

Петруня · Answer 1

Var a:array[0 ... 100] of integer;

i, n:integer;

begin

read (n) ;

for i:=0 to n-1 do begin read (a[i]) ;

if i mod 2=0 then a[i]:=1 else

a[i]:=i mod 5;

end;

for i:=0 to n-1 do write (a[i],' ') ;

end.