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

Помогите пожалуйста 12.03.21

Приложения:

Ответы

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

0

я даже не знаю посмотри в книге может есть

rahuag8584: Пасиба!=)

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

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

Похожие вопросы

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

написать фрозиологизмы примеров 10-15

1 год назад

Предмет: Українська література, автор: lesyavereschak

улюблені теми і жанри М. Рильського

1 год назад

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

поставь слова медведь, кенгуру, пони в нужную форму. Запиши по образцу. Образец:красивый медведь, кенгуру, пони.

1 год назад

Предмет: Алгебра, автор: 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 лет назад