Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]<k) then k:= a[i] end;writeln (k);end.
Третий ответ, если составить цикл и ветвление то он пройдет все клетки
Var x, y: real;
begin
writeln('Введите координаты точки x, y');
read(x, y);
if abs(x - 4) + abs(y - 4) <= 3 then writeln('Принадлежит')
else writeln('Не принадлежит')
end.
Во-первых, электронная почта является очень удобной, учитывая скорость передачи сообщений. Отправляя письмо в любую точку планеты с любого места расположения, можно быть уверенным, что сообщение дойдет до своего адресата в течении нескольких секунд. Это есть очень большой плюс, учитывая современный ритм жизни.