Найти максимальный элемент в массиве а10,заполненном случайным образом.
dwinchester15
1
17.05.2019 14:30
0
Другие вопросы по теме Информатика
vladikn2016
21.07.2019 19:20
mustafina1990
21.07.2019 19:20
pilipuyk
30.06.2019 12:00
frisknilly
30.06.2019 12:00
Gerfat347
19.05.2020 11:20
melchenko11
04.04.2020 20:25
vasutа
04.04.2020 20:25
evgen90079
04.04.2020 20:25
Nurayka269
04.04.2020 20:25
Популярные вопросы
- 1)реши уравнения. в: 7=9 а*8=72 56: к=8 2)используя найденные числа,составь...
3 - Врезервуаре нагревателя находится 800г керосина. сколько литров воды...
1 - 1)какие слва являються заимственоми 2)чем архаизмы отличаються от...
2 - Массовая доля водорода в серной кислоте h2so4 состовляет: 1)32,65%...
3 - Можете подобрать словосочетание к слову разредить?...
2 - Твір на тему як до нас приходить хліб?...
3 - Тот, кто с гусятами близко знаком, знает, гусята гуляют гуськом. тот...
1 - Суботним утром школьники отправились в лес,где собрались изучать жизнь...
2 - Как решить пример 605: 5 столбиком?...
2 - Тело соскальзывает по наклонной плоскости,проходя за 10 с. путь 2 м....
3
var
a : array [1..10] of integer;
i, max : integer;
begin
for i := 1 to 10 do a[i] := trunc (random (500));
max := 1;
for i := 2 to 10 do
if a[i] > a[max] then max := i;
writeln ('Максимальный элемент a[', max, '] = ', a[max]);
end.