НАЙТИ МАКСИМАЛЬНЫЙ ЭЛЕМЕНТ 4 ЧИСЕЛ в ПАСКАЛЕ. Примерное начала задачи на фото, возможно не правильное
Приложения:
Ответы на вопрос
Ответил Alphaeus
0
Паскаль АВС
Program Sanmy;
uses crt;
var
a,b,c,d:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
if b>a then a:=b;
if c>a then a:=c;
if d>a then a:=d;
writeln ('Максимальный элемент = ',a);
end.
Program Sanmy;
uses crt;
var
a,b,c,d:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
if b>a then a:=b;
if c>a then a:=c;
if d>a then a:=d;
writeln ('Максимальный элемент = ',a);
end.
Новые вопросы