Может так:
Vara:array[1..5]of integer;
a1,a2,a3,a4,a5,max:integer;
function f(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
a1:=random(10);
a2:=random(10);
a3:=random(10);
a4:=random(10);
a5:=random(10);
writeln(a1);
writeln(a2);
writeln(a3);
writeln(a4);
writeln(a5);
writeln;
max:=f(a1,a2);
max:=f(max,a3);
max:=f(max,a4);
max:=f(max,a5);
writeln('max=',max);
<span>end.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Это займёт у вас 25 секунд Помогите собрать данные для информатики . Нужно пройти опрос (6 коротких вопросов ) Кто прошёл, пост

KarenTorosyan [41]

Если не секрет, с какой целью данный опрос ?

И небольшое замечание, продуманны не все варианты ответа

0 0

4 года назад

1 Определить максимальное количество страниц текста, содержащего по 80 символов в каждой строке и 64 строки на странице, которое

Татианна

1.
126 * 1024 = 129024 байт
64 * 80 = 5120 символов на странице
129024/5120 = ~25

0 0

4 года назад

Дано: fori:=1to53do При последнем выполнении тела цикла i=

VovaToretto

53
Так как i в цикле for-это счётчик повторений. Первое значение-начальное, второе-конечное. Как только цикл досчитает, прибавляя по единице за каждый шаг к минимальному значению, до конечного значения, он выполнится ещё раз и остановится.

0 0

4 года назад