Дан массив из 30 четырехзначных чисел .Числа кратные своему номеру заменить 1, в противном случае заменить 0

Дан массив из 30 четырехзначных чисел .Числа кратные своему номеру заменить 1, в противном случае заменить 0
Гость
Ответ(ы) на вопрос:
Гость
const n=30; var a:array[1..n] of integer; i:integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin  a[i]:=random(9000)+1000;  write(a[i]:5);  end; writeln; for i:=1 to n do  if a[i] mod i = 0 then a[i]:=1 else a[i]:=0; writeln('Полученный массив:'); for i:=1 to n do write(a[i],' ');     writeln; end. Пример (для n=10): Исходный массив:  2309 2867 6032 7114 7552 6798 8799 3607 2014 2876 Полученный массив: 1 0 0 0 0 1 1 0 0 0 
Гость
const n=30 var a:array of [1..n] of integer; i,k,l:integer; begin randomize; for i:= 1 to n do a[i]:=random(9000)+1000; for i:= 1 to n do begin if a[i] mod i = 0 then a[i]:=1 else a[i]:=0; writeln(a[i]); end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы