Определить разницу между максимальным и минимальным элементами массива

@Alina K · Регистрация: 25.12.2012

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

помогите пожалуйста., вообще в Паскале не шарю.
2. С клавиатуры вводится линейный массив из 10 целых элементов, определить разницу между максимальным и минимальным элементом.

@CodeR · 25.12.2012, 11:52

Сообщение от Alina K

2. С клавиатуры вводится линейный массив из 10 целых элементов, определить разницу между максимальным и минимальным элементом.

Pascal

Const n=10;
Var A:array[1..n] of integer;
    i,imax,imin:byte;
Begin
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    imax:=1;imin:=1;
    For i:=2 to n do
     if A[i]>A[imax] then imax:=i
      else if A[i]<A[imin] then imin:=i;
    writeln('Max = ',A[imax]);
    writeln('Min = ',A[imin]);
    writeln('Разница между max и min = ',A[imax]-A[imin]);
    readln;
End.

Добавлено через 20 секунд
И на будущее одна тема-один вопрос!

@Alina K 0 / 0 / 0 Регистрация: 25.12.2012 Сообщений: 3
		1
	Определить разницу между максимальным и минимальным элементами массива 25.12.2012, 11:45. Показов 1820. Ответов 1 Метки нет (Все метки) помогите пожалуйста., вообще в Паскале не шарю. 2. С клавиатуры вводится линейный массив из 10 целых элементов, определить разницу между максимальным и минимальным элементом. 0

	25.12.2012, 11:52

Опции темы

Определить разницу между максимальным и минимальным элементами массива

Решение