Вопрос от пользователя

ПОМОГИТЕ ПОЖАЛУЙСТА!!!! составьте программу позволяющую вводить с клавиатуры 6 целых чисел и определяющую наибольшее из них. ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!

Ответ редакции сайта ответик

Паскаль, одномерный массив

 

var a:array [1..6] of integer; i, max: integer;

begin

for i:=1 to 6 do read(a[i]);

max:=a[1];

for i:=1 to 6 do

if a[i]>max then max:=a[i];

writeln(max); readln; end.