Найти сумму элементов массива, расположенных после последнего минимального элемента

@Crus · Регистрация: 28.12.2009

Вычислить:
1) кол-во элементов, меньших С
2) сумму элементов массива, расположенных после последнего минимального элемента
Преобразовать массив таким образом, чтобы сначала располагались все элементы лежащие в интервале [a,b], а потом все остальные

@Snoopy · 31.12.2009, 21:16

Pascal

uses crt;
var x:array[1..100] of integer;
    i,j,n,c,k,min,sum,ti,a,b,t,p:integer;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
  for i:=1 to n do
   begin
    x[i]:=random(20)+10;
    Write(x[i]:4);
   end;
Writeln;
Write('C=');
Readln(c);
min:=x[1];
 for i:=1 to n do
  begin
   if x[i]<=min then
    begin
     min:=x[i];
     ti:=i;
    end;
   if x[i]<c then
    k:=k+1;
  end;
sum:=0;
 for i:=ti+1 to n do
  sum:=sum+x[i];
Writeln('K=',k);
Writeln('Min ',min);
Writeln('Sum ',sum);
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Writeln;
 p:=0;
 for i:=1 to n do
  if (x[i]>=a) and (x[i]<=b) then
   begin
   p:=p+1;
   t:=x[i];
    for j:=i downto p+1 do
     x[j]:=x[j-1];
     x[p]:=t;
   end;
 for i:=1 to n do
  Write(x[i]:4);
Readln;
end.

@Crus · 05.01.2010, 14:51 **[ТС]**

пасиба)

@Crus 0 / 0 / 0 Регистрация: 28.12.2009 Сообщений: 10
		1
	Найти сумму элементов массива, расположенных после последнего минимального элемента 28.12.2009, 19:55. Просмотров 1475. Ответов 2 Метки нет (Все метки) Вычислить: 1) кол-во элементов, меньших С 2) сумму элементов массива, расположенных после последнего минимального элемента Преобразовать массив таким образом, чтобы сначала располагались все элементы лежащие в интервале [a,b], а потом все остальные 0

@Crus 0 / 0 / 0 Регистрация: 28.12.2009 Сообщений: 10
	05.01.2010, 14:51 [ТС]	3
	пасиба) 0

Опции темы

Найти сумму элементов массива, расположенных после последнего минимального элемента

Решение