сделать программу в паскале

ввести 10 чисел и из них найти минимум и максимум

Question

Информатика

Лаврюша

24 июля, 08:47

сделать программу в паскале

ввести 10 чисел и из них найти минимум и максимум

+4

Ответы (1)

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

Декабрист · Answer 1

var a:array[0 ... 9] of integer;

i, min, max:integer;

begin

for i:=0 to 9 do readln (a[i]) ;

min:=a[0];

for i:=0 to 9 do if (min>a[i]) then min:=a[i];

max:=a[0];

for i:=0 to 9 do if (max
writeln (max,' ', min) ;

readln;

end.

сделать программу в паскалеввести 10 чисел и из них найти минимум и максимум

сделать программу в паскале

ввести 10 чисел и из них найти минимум и максимум