Задача в том, что надо в последовательности найти два значения. Они могут быть разными в зависимости от входных данных. Например, Числа 12 15 5 7 23 7. Какие два наибольших значения- 23 и 15. Срочно очень очень даю 90 балов
Задача в том, что надо в последовательности найти два значения. Они могут быть разными в зависимости от входных данных. Например,
Числа 12 15 5 7 23 7. Какие два наибольших значения- 23 и 15.
Срочно очень очень даю 90 балов
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[1..10] of integer;
i,k,j:integer;
begin
write ('Числа: ');
for i:=1 to 10 do
begin
a[i]:=random(51);
write (a[i],' ');
end;
for i := 1 to i-1 do
for j:=1 to 10-i do
if a[j]>a[j+1] then begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
WRITELN;
write ('Два наибольших значения: ',a[10],' и ',a[9]);
end.
ГостьПрограмма без использования массива:
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
Не нашли ответ?
Похожие вопросы