Предмет: История, автор: veronika9988

Птахи, що врятували римлян у 390 році до н. е. під час нападу галлів — це

Ответы

Автор ответа: kucherenkoalina07

7

Ответ:

Гуси)

Поставь, пожалуйста, лучший ответ:)

Предыдущий вопрос

Следующий вопрос

Интересные вопросы

Предмет: Русский язык, автор: 9059396580

слова с парными согласными

2 года назад

Предмет: Русский язык, автор: riki20

какие ошибки можно допустить ученик если он не знает различия между гласными и согласными и неправильно ставим ударение напишите

2 года назад

Предмет: Русский язык, автор: Вахбах

морфологический разбор слова деревянный, узкую, дряхлый

2 года назад

Предмет: Алгебра, автор: celldweller484

2-(4-х)²= х (3-х) найдите икс пж

8 лет назад

Предмет: Информатика, автор: KMLV

Что я не так делаю?
паскаль
поиск двух максимальных чисел

program ee;
const N = 5;
var
a : array [1..5]of integer;
iMax,max, iiMa,ma ,i : integer;
begin
for i:= 1 to N do begin
read (a[i]);
end;
write (' числа ', a );
iMax := a[1];// присваиваем для начального сравнения
for i := 1 to N do
if a[i] > iMax then//сравниваем 5 чисел и берём наибольшее
begin
iMax := a[i];//число
max := i;//на каком месте
end;
write (' первое максимальное значение ', iMax,' ',max );
iiMa := a[1];//присваиваем для начального сравнения
ma := 1;//
for i := 1 to N do//
if (iiMa < a[i])and(ma < max)then// ищем второе наибольшее число

begin
iiMa := a[i];//
ma := i//
end;
write (' второе максимальное значение ', iiMa,' ', ma);
end.

8 лет назад