7 класс var a, b, c, d, a1, b1, c1, max:integer; begin readln (a, b, c); d:=(max(max(a, b), c)); -----тут ошибка : Ожидалось имя процедуры или функции a1:=d-a; b1:=d-b; c1:=d-c; write (a1,' '); write (b1,' '); write (c1); end.
Ну да. Нужна процедура max
что исправить?
Написать процедуру/функцию max...
Она же вроде написана
У тебя переменная max. Это не процедура/функция.
а как исправить?
Задание какое?
Даны три числовые переменные А, В, С. Найти максимальное значение и заменить, хранящиеся в переменных значения, на разницу между максимальным значением и тем,что храниться в переменной. Результаты вывести на экран. Пример работы программы:Ввод: 10 15 6Вывод: 5 0 9Ввод: 15 12 13.5Вывод: 0 3 1.5Ввод: -14 8 2Вывод: 22 0 6
//Pascal var A, B, C, max: real; begin readln (A, B, C); if A >= B then max := A else max := B; if A > max then max := C; writeln(max - A,' ', max - B, ' ', max - C); end.