Question

Составьте программу в паскале. Поиск максимального 3-х чисел. Учесть случай, когда а=в=с (вывести сообщение "числа равны"). Блок-схема обязательна.

Answer 1

var
  a:array [1..3] of real;
  max: real;
  i,check:integer;
begin
  writeln('Поиск максимального 3-х чисел');
  writeln('Введите значения 3-х чисел');
  for i:= 1 to 3 do
    readln(a[i]);
  max:=a[1];
  check:=1;
  for i:=2 to 3 do
  begin
    if a[i]>max then
      max:=a[i]
    else if a[i]=max then
      check:=check+1;
   end;
if check=3 then
  writeln('Все числа равны')
else   
  writeln('Max=',max)
end.