Регистрация
medewwnik
23.08.2021 07:07
Информатика
Есть ответ 👍

Всем привет, как изменить программу, чтобы она выводила не второй по величине элемент массива, а третий?
Буду очень признательна

program Pascal;
const n=10;
Var i, j: Integer;
y:Integer;
m: array[1..10] of integer;
Begin
For i:=1 to n do begin
m[i]:=random(10);
write(m[i]:4);
end;
j:=m[1];
For i := 2 to n do begin
If m[i]>j then j:=m[i];
end;
For i := 1 to n do begin
If (m[i]>y) and (m[i]<>j) then y:=m[i];
end;
Writeln();
Write(y);
End.

127
323
Посмотреть ответы 1

Ответы на вопрос:

ivan240620058p0bydq
ivan240620058p0bydq
4,5(23 оценок)

ответ:20 Кб

Объяснение:

Популярно: Информатика