Запишите программу формирования и вывода массива из N элементов (N <1000). Элементы массива первые N простых чисел (простое число - это натуральное число, отличное от единицы, которое делится только на 1 и на себя)

Ответы

Ответ дал: GrizzzleyInfo
1
Program sh;
 var j:integer;
  massiv:array [1..1000] of integer;
  begin;
   begin;
    randomize;
    for j:=1 to 1000 do
     massiv[j]:=random(1000);
   end;
   for j:=1 to 1000 do
    begin;
     if (massiv[j] mod 1=0) then
     if (massiv[j]>0) and (massiv[j] mod massiv[j]=0) then
     write (massiv[j]:5);
    end;
  end.
Я не очень понял запрос, в итоге эта программа выводит все натуральные числа созданные рандомом в районе от 0 до 1000.


koookr: Большое спасибо)))))
Вас заинтересует