Программа без использования массива:
var
i, n, a, max, max2: integer;
begin
write('Введите количество чисел: ');
read(n);
write('Введите числа: ');
for i := 1 to n do
begin
read(a);
if a > max then
begin
max2 := max;
max := a;
end;
end;
writeln('Два наибольших значения - ', max2, ' и ', max);
end.
Пример работы программы:
Введите количество чисел: 6
Введите числа: 12 15 5 7 23 7
Два наибольших значения - 15 и 23
Const n = 10;
var x: array[1..n] of integer;
i: integer;
begin
Randomize;
for i := 1 to n do
begin
x[i] := Random(11);
Write(x[i]:4)
end;
end.
Var i, c, n: integer;
begin
read(n);
c:=1;
for i:=1 to n do
c:=c*2;
writeln(c);
<span>end.</span>
С д е ф г т.к это все мы обрабатываем и делаем какое-либо действие
Значения переменных по строкам в результате выполнения программы
6
-3
30
15
Ответ: 15