Алг Максимум (ціл Max,N,i, дійсн таб A[1:N])
Арг Max,N,A
Рез Max
Поч
Max:=A[1];
Для і від 2 до N
пц
Якщо Max<A[i] то Max:=A[i]
Все
Кц
Вивести (Max)
кін
4 3 7 5 8 4 5 6 7
I Max
4
2 4
3 7
4 7
5 8
6 8
7 8
8 8
9 8
Арг Max,N,A
Рез Max
Поч
Max:=A[1];
Для і від 2 до N
пц
Якщо Max<A[i] то Max:=A[i]
Все
Кц
Вивести (Max)
кін
4 3 7 5 8 4 5 6 7
I Max
4
2 4
3 7
4 7
5 8
6 8
7 8
8 8
9 8
я хочу поділитися своїм свідченням про те, як пан. Бенджамін допоміг мені позику у розмірі 2 000 000,00 доларів для фінансування мого проекту вирощування марихуани. Я дуже вдячний і пообіцяв поділитися цією законною фінансовою компанією з усіма, хто шукає спосіб розширити свій бізнес-проект. . фінансова компанія. всі, хто звертається за фінансовою підтримкою, повинні зв’язуватися з ними за адресою 247officedept@gmail.com. Пан Бенджамін також працює у WhatsApp + 1-989-394-3740, щоб полегшити завдання будь-якому заявнику.
ВідповістиВидалити