Может так:
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 ответа

Написать программу, которая добавляет пробелы в строку.(То есть: Если в тексте есть знак препинания «.», «,», «!» или «?», и пос

Алексей Фролов 2019

Var
s1,s2:string;
i,k:integer;
begin
readln(s1);
k:=length(s1)-1;
s2:='';
for i:=1 to k do
begin
    s2:=s2+s1[i];
   case s1[i] of
   '.',',','!','?':
    if s1[i+1]<>' ' then s2:=s2+' ';
end;
end;
s2:=s2+s1[k+1];
writeln(s2)
<span>end.</span>

0 0

4 года назад

Ввести 2 числа если их произведение отрицательно то умножить на минус 2 иначе X 1/5

Elinka35cf

Javascript:var a=prompt(),b=prompt();пр=a*b;if(пр<0)пр*=-2;else пр*=1/5;alert(пр);

0 0

4 года назад

СРОЧНО НА ПАСКАЛЕ СДЕЛАЙТЕ!!! Определить количество посетителей салона, которых успеет обслужить мастер-стилист, если его рабочи

The dark side

Var t,m,k:integer;
begin
write('Введите продолжительность рабочего дня мастера (час) = ');
readln(t);
write('Введите время обслуживания посетителя (мин) = ');
readln(m);
k:=t*60 div m;
writeln('Количество обслуженных посетителей = ',k);
end.

0 0

4 года назад