<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
<u>Пример</u>
Введите два числа: 25 24.95
Первое число больше
2^36=<span>68719476736.............</span>
Ответ:
выбери то что понравилось ахаэхахахахахахаха
program qq;
var s,i,n:integer;
a:array [0..1000] of integer;
begin
s:=0;
readln (a[0]);
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]>a[i-1] then
s:=s+1;
end;
writeln(s);
end.
"больше за i-й элемента массива" - это вообще не понятно, пожалуйста в следующий раз пишите вопрос корректнее
Импортировать это значит добавления вставка данных из внешнего источника в в текущий файл документ экспортр вывод данных текущего файла документа во внешний источник