Завтра начинаются каникулы, завтра каникулы
Программа без использования массива:
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
ИНФОРМАТИКА - ЦСКРОТЯМЦФЯ
КОД - ФРЫ
КОМПЬЮТЕР - ФРТПГБМЪО
<em>var g,s:string;
</em>
<em>begin
</em>
<em>readln(g);
</em>
<em>readln(s);
</em>
<em>writeln('Столица государства ',g,' - ','город ', s);
</em>
<em>end.
</em>