Найти максимальное значение среди простых членов . если таковых нет то вывести .
я пыталась написать но не получилось
program ak ;
type
intarray = array[1..5] of integer;

var
i, max,s,n: integer;
numbers : intarray;
begin
numbers[1] : = 31;
numbers[2] : = 7;
numbers[3] : = 2;
numbers[4] : = 14;
numbers[5] : = 527;

max : =numbers[1];

for i : = 1 to 5 do
if n mod i=0 then
begin
s: =s+i;
end ;
if s=(n+1) then

writeln('n простое число');

else ('нет простых чисел');
end.

​

hdn12    1   16.12.2019 20:30    0