==============================
AKS-Test.
==============================
Обычно, когда проводят тест на простоту сталкиваются с тем, что определить простоту числа в большинстве тестов можно лишь с некоторой вероятностью.
Но математика не стоит на месте и сравнительно недавно появился AKS-тест, позволяющий быстро и гарантированно определить, является ли число простым.
Суть метода такова. Пусть число, которое мы тестируем обозначается A. У нас есть такое выражение: 
. Если раскрыть скобки и привести это дело к многочлену вида 
и все коофиценты k в этом многочлене делятся на A без остатка, то число А - простое. Без вариантов.
Блок-схема с числом n представлена на рисунке 1.
В цикле: 
. (! - факториал)
P.S. В блок-схеме есть элемент вида (А). Он использовался для связи, так как места на стрелку справа не оказалось. Можешь их убрать и соединить освободившиеся места стрелкой.
В ответе будет 173, если нужно объяснение пишите в комментарии
Ответ:
program kod;
var
a: array [1..10] of Integer;
i, p: Integer;
begin
for i:=Low(a) to High(a) do a[i]:=-40+Random(91);
p:=1;
for i:=Low(a) to High(a) do if (a[i]>0) and (a[i] mod 7=0) then p:=p*a[i];
end.
Объяснение:
У меня второй вариант решения. Размерность массива: [1..10] можно любую делать
Program prog;
Uses crt;
var a: array [0..29] of integer;
max, min, i: integer;
begin;
clrscr;
randomize;
max:=-201;
min:=201;
for i:=0 to 29 do
begin
a[i]:=random(401)-200;
write(a[i],' ');
if (a[i]>max)and(a[i]<0) then
max:=a[i];
if (a[i]<min)and(a[i]>0) then
min:=a[i];
end;
writeln;
writeln;
writeln('max neg = ', max);
writeln('min pos = ', min);
readln;
end.
Ответ:
var
a, b: Real;
c : Integer;
begin
Write ('A, B = ');
ReadLn (a, b);
c := 0;
if a > 0 then
Inc (c);
if b > 0 then
Inc (c);
WriteLn ('Количество положительных = ', c);
ReadLn;
end.
