Создать массив на четных местах в котором стоят единицы а на нечетных местах числа равные остатку от деления своего номера 5
Создать массив на четных местах в котором стоят единицы а на нечетных местах числа равные остатку от деления своего номера 5
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы