ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ Уровень B. Заполнить массив случайными числами в интервале [0,100] и отобрать в другой массив все простые числа. Используйте логическую функцию, которая определяет, является ли перед...

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ Уровень B. Заполнить массив случайными числами в интервале [0,100] и отобрать в другой массив все простые числа. Используйте логическую функцию, которая определяет, является ли переданное ей число простым. Пример: Массив А: 12 13 85 96 47 Массив B: 13 47
Гость
Ответ(ы) на вопрос:
Гость
Const  n=5; Var  ar:array[1..n] of integer;  ar2:array[1..n] of integer;  i,k:integer;  function prost(a:integer):boolean;  var i:integer;  b:boolean;   begin   b:=true;    for i:=2 to a div 2 do     if a mod i=0 then      begin;       b:=false;       break;      end;    if a=1 then b:=false;   prost:=b;  end;   begin;  randomize;  k:=0;   for i:=1 to n do    begin;     ar[i]:=random(101);     write(ar[i]:4);    end;   writeln;   for i:=1 to n do   if prost(ar[i]) then    begin;     inc(k);     ar2[k]:=ar[i];     write(ar2[k]:4);    end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы