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

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

Question

Информатика

Федюля

5 сентября, 20:55

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

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

+2

Ответы (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 чисел и из них найти минимум и максимум