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

@garnier · Регистрация: 26.10.2012

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

Помогите пожалуйста

@SladkayaVata · 26.10.2012, 18:55

Pascal

var a:array[1..10] of integer;
i,max,min:integer;
begin
max:=-maxint;
min:=maxint;
writeln('Заполните массив из 10 элементов');
for i:=1 to 10 do 
begin
  readln(a[i]);
  if a[i]<min then min:=a[i];
  if a[i]>max then max:=a[i]; 
end;
writeln('Разница между максимальным и минимальным числом: ',max-min);
end.

@garnier 0 / 0 / 1 Регистрация: 26.10.2012 Сообщений: 116
		1
	Дано 10 натуральных целых чисел. Вывести на экран разницу между максимальным и минимальным числом 26.10.2012, 18:49. Показов 1371. Ответов 1 Метки нет (Все метки) Помогите пожалуйста 0

	26.10.2012, 18:55

Опции темы

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

Решение