Паскаль! с клавиатуры вводится 8 чисел. Определить разницу между минимум и максимум

Question

Информатика

Агафангел

24 октября, 07:24

Паскаль! с клавиатуры вводится 8 чисел. Определить разницу между минимум и максимум

+3

Ответы (1)

Знаете ответ на вопрос?

Влас · Answer 1

Var ar:array[1 ... 8] of integer;

max, min, i:integer;

begin;

min:=2147483647; / / верхняя граница integer

for i:=1 to 8 do

begin;

readln (ar[i]) ;

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

end;

writeln ('Max:', max) ;

writeln ('Min:', min) ;

end.