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

@planktonik · Регистрация: 09.03.2014

Студворк — интернет-сервис помощи студентам

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

@ildwine · 04.04.2014, 22:00

Pascal

var n1, n2, n3, mm : integer;
 
function max(a, b : integer) : integer;
begin
  if a > b then max := a else max := b
end;
 
begin
  write('введите 3 переменных: ');
  readln(n1, n2, n3);
  mm := max(n1, max(n2, n3));
  writeln('максимальное из трех: ', mm)
end.

@Dax · 04.04.2014, 22:47

Pascal

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.

Массивом

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

Решение

Решение

@planktonik 0 / 0 / 3 Регистрация: 09.03.2014 Сообщений: 16
		1
	Найти максимальное число из 3 переменных 04.04.2014, 21:52. Показов 3724. Ответов 2 Метки нет (Все метки) как найти в паскале максимальное число из 3 переменных 0

Опции темы