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

Question

Информатика

Витоша

14 апреля, 07:47

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

+5

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