Задача в том, что надо в последовательности найти два значения. Они могут быть разными в зависимости от входных данных. Например,
Числа 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
