Tgnbva

26.11.2021 02:36 •  Информатика

В результате выполнения программы напечатано число 15. Какое наибольшее значение может иметь переменная S после выполнения программы? Пользователь программы вводит только натуральные числа.

Var k, m, x, j, S, N: integer;
Dat: array[1..100] of integer;
Begin
N:= 10;
m := 0; S := 0;
for k := 1 to N do
readln(Dat[k]);
for k := 1 to N do
if Dat[k]>m then
begin
m := Dat[k];
x := 0;
for j:=1 to Dat[k] do
if Dat[k] mod j = 0 then
x := x + 1;
if x=2 then
S := Dat[k];
end;
writeln(m)
End.