Дан числовой ряд, содержащий целые положительные числа, не превосходящие 300/вот на этом моменте я не - id542646920200104 от makskatya20 04.01.2020 07:12

Question

Информатика: Дан числовой ряд, содержащий целые положительные числа, не превосходящие 300/вот на этом моменте я не поняла, что здесь имеется ввиду/. количество неизвестно, но окончанием ввода числового ряда является ввод нуля. найти число, для которого сумма делителей числа будет наибольшей, исключая из делителей ноль и само число умоляю

makskatya20 · Accepted Answer

Const n = 5;
var
a: array [1..n] of integer;
i,l,m,k: integer;
begin
for i := 1 to n do read(a[i]);
l := 1;
while l < n do
    begin
    while (a[l] mod 2 = 0) and (l < n) do l := l + 1;
    if l < n then
      begin
      k := l;
      m := a[l];
      for i := l+1 to n do
        if a[i] mod 2 <> 0 then
        if a[i] > m then
          begin
          m := a[i];
          k := i
          end;
      a[k] := a[l];
      a[l] := m;
      l := l + 1
      end;
    end;
for i := 1 to n do write(a[i],' ')
end.

MOGZ ответил