Артём хочет обновить свои аватарки во всех соцсетях. Он сфотографировался в огороде, чтобы все знали, - id2042198620200630 от mikhailstrelni 30.06.2020 04:04

Question

Информатика: Артём хочет обновить свои аватарки во всех соцсетях. Он сфотографировался в огороде, чтобы все знали, чем он занимается летом. Размер фотографии — 8 Мбайт. У каждой соцсети свои ограничения по размеру фото. WK (до 9024 Кбайт) «Разноклассники» (до 7025 Кбайт) «Тики-ток» (до 11 024 Кбайт) «Инста»(до 1567 · 210 байт)

mikhailstrelni · Accepted Answer

Массив вводится с клавиатуры через пробел 15 элементов
var
a:array[1..15]of integer;
i,j,buf:integer;
begin
for i:=1 to 15 do
read(a[i]);
for i:=1 to 14 do
for j:=i+1 to 15 do
if (a[i]<>0)and(a[j]<>0) then
if a[i]>a[j]then
begin
buf:=a[i];
a[i]:=a[j];
a[j]:=buf;
end;
writeln;
for i:=1 to 15 do
write(a[i]:4);
end.

MOGZ ответил