Var
a:array[1..100000] of integer;
b:array[0..9]of boolean;
n,i:integer;
Procedure Two_Max;
var
cnt, i:integer;
begin
For i:= 1 to n do
b[a[i]]:= true;
For i:= 9 downto 0 do
if (b[i] = true)and(cnt < 2) then
begin
inc(cnt);
Write(i, ' ');
end;
end;
begin
Read(n);
For i:= 1 to n do
Read(a[i]);
Two_Max;
end.
Я в четвертом классе а у нас нету и можно вопрос а на каких вы работаете компьютерах???!!!?!??
Например при x=-1 y=0
Program gt;
var x,y:real;
begin
readln(x,y);
if(y<=x)and(y>=-x)and(x*x+y*y<=1)then writeln('YES') else
writeln('NO');
end.
Вот такая программа для горизонтального коридора в одну клетку шириной и для начального положения робота в левом конце коридора.
Если радиации в коридоре не найдено, программа выводит об этом сообщение (без вывода цифровой статистики при этом).
использовать Робот
алг
нач
вещ макс=0 | максимальный найденный уровень радиации
цел счёт=0 | число наиболее заражённых клеток
нц
если радиация>макс то макс:=радиация все
если справа свободно то вправо иначе выход все
кц
если макс=0 то вывод 'радиации в коридоре нет'; выход все
нц
если радиация=макс то закрасить; счёт:=счёт+1 все
если слева свободно то влево иначе выход все
кц
вывод 'макс.уровень радиации= ',макс,нс
вывод 'клеток с таким уровнем= ',счёт
кон