Паскаль. с клавиатуры введены 6 целых чисел. составьте программу, которая найдет из них наибольшее из них. использовать процедуру поиска большего из двух (бид).
1234567890854
2
12.03.2019 19:39
4
Другие вопросы по теме Информатика
Mashaskliiiz
05.09.2019 15:30
andrianovva
08.07.2019 19:40
dasha199616
08.07.2019 19:50
Веттуня
08.07.2019 19:50
murarr
08.07.2019 20:00
DrNick
08.07.2019 20:00
21марта
08.07.2019 20:00
diko2009
08.07.2019 20:00
Популярные вопросы
- Что раньше было курица или яйцо?...
3 - Summative Assessment for the 2nd term Grade 6ReadingTask 1. Read the text...
2 - 1. Определите географическую широту городов: Каира, Мехико, Пекина. 2. Два...
2 - Дайте характеристику фосфорной кислоты по плану; а)формула; б)наличие кислорода;...
3 - спеши вставь пропущенные буквы расставь знаки припенания при однородных членах...
3 - Lesson 12PROGRESS TEST задания ...
1 - Задание 1. Решите неравенства: а) -x² + 8x ≤ 0 б) 9 - x² 0 Задание 2. При...
1 - - Перед кем все люди снимают шапки? - Кто погружается в работу с головой?...
2 - Между заболеваниями дыхательной системой и их признаками. 1. Туберкулез 2....
3 - Разбери предложения по членам , подпиши части речи . Выпиши словосочетания....
2
//PascalABC.NET 3.4.2
var x, max: integer;
procedure my_max(x1, x2: ^integer);
begin
if (x2^ > x1^) then x1^ := x2^;
end;
begin
loop 6 do
begin
x := readinteger();
my_max(@max, @x);
end;
write(max);
end.