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

Question

Информатика

Палуня

4 июля, 09:28

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

+1

Ответы (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.