Готово
function max(a1, a2:integer):integer;
begin
if a1>a2 then max:=a1 else max:=a2;
end;
var
a, b, c, d: integer;
begin
readln(a, b, c, d);
write(max(max(a, b), max(c, d)));
<span>end.
Если есть какие-то вопросы или ещё нужна помощь, в ЛС.
</span>
алг
нач цел б,ср=0, цел таб а[1:20]
нц
для б от 1 до 20
а[б]:=int(rnd(20))
ср:=ср+а[б]
кц
вывод (ср/20)
<span>кон</span>
Var a,b: Real;
begin
writeln('Введите a и b');
readln(a,b);
if a>b then
begin
a:=a*10;
b:=b/10;
end;
if a<b then
begin
b:=b*10;
a:=a/10;
end;
if a=b then
begin
b:=b*10;
a:=a*10;
end;
writeln('a: ',a);
writeln('b: ',b);
end.
#include <stdio.h>
int main(void)
{
unsigned int
number;
scanf("%u", &number);
switch(number)
{
case 1:
{
printf("%s\n", "Понедельник");
break;
}
case 2:
{
printf("%s\n", "Вторник");
break;
}
case 3:
{
printf("%s\n", "Среда");
break;
}
case 4:
{
printf("%s\n", "Четверг");
break;
}
case 5:
{
printf("%s\n", "Пятница");
break;
}
case 6:
{
printf("%s\n", "Суббота");
break;
}
case 7:
{
printf("%s\n", "Воскресенье");
break;
}
}
return 0;
}
Что надо делать там вапросы ???