Присвоить переменной A максимальное значение из введенных с клавиатуры чисел (X,Y,Z,B)

[Dj-RD]

Присвоить переменной A максимальное значение из введенных с клавиатуры чисел (X,Y,Z,B)? На языке паскаль!

[spamer]

1) Ну и в чем проблема?
2) Вы хотите что бы за вас кто то решил? Тогда вам во фриланс(могу сделать и я за $).
3) На каком ЯП хоть писать?

[CodeExpert]

Как один из вариантов...:

program abd;
uses Crt;
var a:integer;
    mas:array[1..4] of integer;
    i:byte;
begin
for i:=1 to 4 do begin
 case i of
  1:Writeln('Введите x');
  2:Writeln('Введите y');  
  3:Writeln('Введите z');  
  4:Writeln('Введите b'); end;
  Readln(mas[i]);end;
a:=0;
for i:=1 to 4 do begin
 if mas[i]>a then a:=mas[i];end;
Writeln('Ответ=',a);
readln;
end.

[Dj-RD]

Спасибо... Если что тоже помогу...

[Dj-RD]

Проверил только что не всегда работает((( Увы...

[CodeExpert]

Делалось и компилилось в Паскаль.Абц.Нет, что именно не работает? ну если у вас не настроено, не подключайте модуль:

uses Crt;

[CodeExpert]

да уж...бывает..

[Serebro]

Сообщение от CodeExpert

Как один из вариантов...:

program abd;
uses Crt;
var a:integer;
    mas:array[1..4] of integer;
    i:byte;
begin
for i:=1 to 4 do begin
 case i of
  1:Writeln('Введите x');
  2:Writeln('Введите y');  
  3:Writeln('Введите z');  
  4:Writeln('Введите b'); end;
  Readln(mas[i]);end;
a:=0;
for i:=1 to 4 do begin
 if mas[i]>a then a:=mas[i];end;
Writeln('Ответ=',a);
readln;
end.

нужно тестировать коды. Пример: -1,-2,-3,-4; при этом max=0.

[Chudo4258]

program abd;
uses Crt;
var a:integer;
    mas:array[1..4] of integer;
    i:byte;
begin
for i:=1 to 4 do begin
 case i of
  1:Writeln('Введите x');
  2:Writeln('Введите y');  
  3:Writeln('Введите z');  
  4:Writeln('Введите b'); end;
  Readln(mas[i]);end;
a:=mas[1];
for i:=2 to 4 do begin
 if mas[i]>a then a:=mas[i];end;
Writeln('Ответ=',a);
readln;
end.