Установи соответствие. 1. Робот бесконечно движется вперёд

2. Робот движется вперёд, пока не увидит красный цвет

3. Робот движется вперёд, пока не удалится от объекта на расстояние больше 50

Question

Информатика: Установи соответствие. 1. Робот бесконечно движется вперёд 2. Робот движется вперёд, пока не увидит красный цвет 3. Робот движется вперёд, пока не удалится от объекта на расстояние больше 50

КатяСимагина1 · 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 ответил