Тест. Синтаксис языка программирования Паскаль Оператор конца программы
Оператор ввода
Оператор вывода
(почти) Каждая строка программы заканчивается символом…
Раздел описания констант
Раздел описания переменных
Тип данных «вещественное число»
Тип данных «целое число»
Оператор присваивания
Стандартная функция «модуль числа Х»
Стандартная функция «квадратный корень из числа Х»
Стандартная функция «остаток от деления a на b»
Стандартная функция «целая часть от деления а на b»
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.