Найти максимальное число из 3 переменных - Pascal ABC

Формулировка задачи:

как найти в паскале максимальное число из 3 переменных

Код к задаче: «Найти максимальное число из 3 переменных - Pascal ABC»

textual
var i,n,max:integer;
x:array[1..25]of integer;
begin
n:=3;
for i:=1 to n do read(x[i]);
max:=x[1];
for i:=2 to n do 
if x[i]>max then max:=x[i];
write(max);
end.

6   голосов, оценка 3.167 из 5


СОХРАНИТЬ ССЫЛКУ