Создать массив из 30 элементов кратных 4 и 5 на интервале от 0 до 1000 и числа при этом трехзначные.

Question

Информатика

Адель

31 января, 05:58

Создать массив из 30 элементов кратных 4 и 5 на интервале от 0 до 1000 и числа при этом трехзначные.

+2

Ответы (1)

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

Меркурия · Answer 1

Uses crt;

var a:array[1 ... 30] of integer;

r, i:integer;

begin

randomize;

ClrScr;

r:=0;

i:=1;

while i<31 do

if (r>100) and (r<1000) and ((r mod 4=0) or (r mod 5=0)) then

begin

a[i]:=r;

r:=random (1000) ;

inc (i) ;

end else r:=random (1000) ;

for i:=1 to 30 do

write (a[i]:4) ;

end.