Var a:array[1..10] of integer;
i,b,ind,el,min:integer;
begin
min:=1000000;
for i:=1 to 10 do
read(a[i]);
readln;
read(b);
for i:=1 to 10 do begin
if abs(a[i]-b)<min then begin
min:=abs(a[i]-b);
el:=a[i];
ind:=i;
end;
end;
write(el,' ',ind); //Выводит элемент, а затем его индекс.
end.<span>
</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (v, s, t) := (55, 200, 20);
Println(v * 1000 / 3600 * t > s ? 'Да' : 'Нет')
end.
<h2>Да</h2>
Формальный язык это тот язык который изучают(ноты,английский,Дорожные знаки,С++, и т.д.