Написать 3 программы на Паскале (30 баллов)
Приложения:

Ответы на вопрос
Ответил m5888916
0
Ответ:
1)Program a1;
var a,b,c,d,e,max:real;
Begin
clrscr;
writeln('Введите 10 чисел');
readln(a,b,c,d,e);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if d>c then max:=d;
if e>d then e:=max;
writeln('Максимальное значение является: ',max);
readln
end.
Объяснение:
Помогла только с первым
Новые вопросы
Русский язык,
2 года назад
Українська мова,
2 года назад
Алгебра,
7 лет назад
Математика,
7 лет назад
Математика,
9 лет назад