Напишите информатику в письменном виде чтоб в тетрадь записать
Типо A[i]=2+1=3 и тп

m := 15001;
for i:=1 to N do begin
if (a[i] mod 5 = 0) and (a[i] < m) then m := a[i]
end;
if m > 15000 then m := 0;
for i:=1 to N do begin
if a[i] mod 2 = 1 then a[i] := a[i] – m;
writeln(a[i])
end;

Varvarizma    3   24.04.2020 21:22    0