Паскаль составьте программу вычисления максимального вычисления в массиве a и его индексов
qwerty999999fgh
3
29.05.2019 17:11
2
Другие вопросы по теме Информатика
Kozlov24ivan122
19.03.2020 01:24
урган1
19.03.2020 01:29
Nikita20330
25.11.2020 09:05
Совунья11
27.10.2020 10:23
liliyaabramova1
27.10.2020 10:23
Косалинааа
27.10.2020 10:24
aiis171
27.10.2020 10:24
strunets1
11.05.2021 00:56
DinaraBergeneva
21.04.2020 08:45
KateDonut1
21.04.2020 08:45
Популярные вопросы
- Выпишите предложение, в котором необходимо поставить запятую. (Знаки...
3 - Шо називають диоганалью чотырыкутныка...
2 - Користуючись малюнками 204-206, знайдіть невідомі сторони х та у...
1 - В чём заключается смысл сцены встречи Базарова с мужиком перед дуэлью...
2 - Вычислите. 1. сколько минут составляют 2/5 части; 3/4 части от 1...
2 - Що называють перыметром чотырыкутныка...
1 - Напишите о любом герое из фильма и его распорядке дня на английском...
2 - БЗЗ БЗЗ НУЖНА БЕЗ СПАМА Bilden Sie Fragen im Perfekt. Необходимо...
2 - 6 VOCABULARY Match the highlighted phrasal verbs in the text with...
1 - Какая машина больше всего похожа на родстер кобра чем эти машины...
3
Var i,max:integer;
A:array [1..10] of integer;
Begin
Max:=0;
For i:=1 to 10 do
Begin
Read(a[i]);
If a[i] > max then max:=a[i];
End;
Write(max);
End.