Вмассиве в содержится 20 элементов. на четных местах числа от 50 до 100,на нечетных местах от 150 до 200.все числа целые.массив распечатать в одну строчку.найти наибольший элемент.
Вано137
2
07.03.2019 18:10
2
Другие вопросы по теме Информатика
5Августина5
02.04.2020 16:25
kuprianova24012
02.04.2020 16:28
Vika15511
18.04.2020 20:28
Afyz1
09.04.2020 16:48
Нютик1823
09.04.2020 16:48
Sarzhanovaperuza
09.04.2020 16:49
renatamamarenata
09.04.2020 16:49
1Тамблер1
09.04.2020 16:49
dielela
09.04.2020 16:49
Популярные вопросы
- Выписать выделенные глаголы и записать в отрицательной форме ...
2 - Вкажіть вірний варіант для виведення результату обчислення периметру...
1 - 1) Яке враження у вас склалося про капітана Миколайчика й агента Фікси?...
3 - Complete the sentences with going to, 1. It s only 7 o clock in the...
2 - Nick___(to finish/already) his project, so he can present it to the...
1 - Спочно 15. Чому смерть є бажаною для ліричного героя поєзій Джона...
3 - Яку кількітсь теплоти отримав газ від нагрівача, якщо він віддав холодильнику...
3 - найдите значение выражения используя наибольшее удобный порядок вычислений...
2 - Сколько будет сас+сас-сос*сус...
1 - 2 що зображено на передньому плані? 3 яке небо?4 який час доби зображено?5...
1
var
a:array [1..20] of integer;
i,max:integer;
begin
max:=0;
for i:=1 to 20 do
begin
if i mod 2=0 then a[i]:=random(50)+50
else a[i]:=random(50)+150;
if a[i]>max then max:=a[i];
write(a[i]:4);
end;
writeln;
writeln('max=',max);
end.