Дано 10 натуральных целых чисел. Вывести на экран разницу между максимальным и минимальным числом

@usachev2010@inb · Регистрация: 22.10.2012

Студворк — интернет-сервис помощи студентам

Дано 10 натуральных целых чисел. Вывести на экран разницу между макси-мальным и минимальным числом.

@gaw · 29.10.2012, 21:47

Pascal

const n=10;
type  arr = array [1..n] of integer;
var a:arr;
i:integer;
 
function mm(mass:arr;k,m:integer): integer;
var i:integer;
begin
  result:=mass[1];
for i:=2 to k do
   if result*m<mass[i]*m then result:=mass[i];
   mm:=result;
end;
 
begin
for i:=1 to n do begin
  a[i]:=random(90)+10; write(a[i],'  ');
      end;
writeln;
writeln('max-min=',mm(a,n,1),'-',mm(a,n,-1),'=', mm(a,n,1)-mm(a,n,-1))
end.

@usachev2010@inb 0 / 0 / 0 Регистрация: 22.10.2012 Сообщений: 4
		1
	Дано 10 натуральных целых чисел. Вывести на экран разницу между максимальным и минимальным числом 29.10.2012, 21:18. Показов 1222. Ответов 1 Метки нет (Все метки) Дано 10 натуральных целых чисел. Вывести на экран разницу между макси-мальным и минимальным числом. 0

Опции темы

Дано 10 натуральных целых чисел. Вывести на экран разницу между максимальным и минимальным числом

Решение