Если нужно вывести большее из двух чисел, то правильно, кроме:
3-я строка - в конце нужна точка с запятой
7-я строка - бессмысленная команда readln. Ее можно не писать.
Const n=10;var a:array [1..n] of integer;i,max:integer;beginrandomize;for i:=1 to n dobegina[i]:=random(100);writeln(a[i]);end;max:=0;for i:=1 to n dobeginif a[i]>max then beginmax:=a[i];end;end;writeln('Max = ',max);end.
Var
A:real;
Begin
Write('Скорость в км/ч = ');
ReadLn(A);
WriteLn('Скорость в м/с = ',A/3.6);
End.
PascalABC.NET 3.4
// без массива
begin var (a, b) := ReadInteger2('Задай два первых числа ');
var n := ReadInteger('Сколько всего чисел надо?');
Print(a, b);
for var i := 3 to n do
begin
(a, b) := (b, a + b);
Print(b)
end
end.
// с массивом
begin
var n := ReadInteger('Сколько всего чисел надо?');
var a := new integer[n];
(a[0], a[1]) := ReadInteger2('Задай два первых числа ');
for var i := 2 to n - 1 do
a[i] := a[i - 1] + a[i - 2];
a.Println
end.
В формате "целое без знака" с помощью n двоичных разрядов можно записать числа от 0 до 2^n - 1 (это соответствует записям от 000...0 до 111...1, где в каждом числе по n разрядов).
При n = 11 максимальное число равно 111...1_2 (11 разрядов) = 2^11 - 1 = 2048 - 1 = 2047