В одномерном числовом массиве размерности n вычислить сумму элементов, расположенных между максимальным и минимальным элементами

@неуч0 · Регистрация: 05.07.2013

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

Задачи на одномерные массивы

4 В одномерном числовом массиве размерности n вычислить сумму элементов, расположенных между максимальным и минимальным элементами.

@Puporev · 05.07.2013, 15:01

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,imn,imx,x:byte;
    s:integer;
begin
randomize;
repeat
write('Размер массива n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
imn:=1;
imx:=1;
for i:=1 to n do
 begin
  if a[i]<a[imn] then imn:=i;
  if a[i]>a[imx] then imx:=i;
 end;
writeln('Номер минимального=',imn,' минимальный=',a[imn]);
writeln('Номер максимального=',imx,' максимальный=',a[imx]);
if imx<imn then
 begin
  x:=imn;
  imn:=imx;
  imx:=x;
 end;
s:=0;
for i:=imn+1 to imx-1 do
s:=s+a[i];
write('Сумма между минимальным и максимальным=',s)
end.

@неуч0 0 / 0 / 0 Регистрация: 05.07.2013 Сообщений: 5
		1
	В одномерном числовом массиве размерности n вычислить сумму элементов, расположенных между максимальным и минимальным элементами 05.07.2013, 12:26. Показов 1731. Ответов 1 Метки нет (Все метки) Задачи на одномерные массивы 4 В одномерном числовом массиве размерности n вычислить сумму элементов, расположенных между максимальным и минимальным элементами. 0

	05.07.2013, 15:01

Опции темы

В одномерном числовом массиве размерности n вычислить сумму элементов, расположенных между максимальным и минимальным элементами

Решение