Pascal задача

Alone · 22.12.2012, 14:01

Помогите решить задачку. В массиве b1,b2 . . . b15 найти сумму элементов, стоящих правее минимального.
минимальное число нашел, а вот, как найти сумму чисел стоящих правее не догоняю. . .

Var a:array[1..15] of integer;
i,b:integer;
begin
Writeln('Vvedite 15 chisel');
for i:=1 to 15 do
Readln(a[i]);
b:=a[1];
for i:=2 to 15 do
begin
if a[i]<b
then b:=a[i];
end;
writeln(b);
readln;
end.

Alone · 22.12.2012, 17:16

ну очень нужно, помогите знающие.

Vladimir_S · 22.12.2012, 20:02

Цитата:

Сообщение от Alone

как найти сумму чисел стоящих правее не догоняю. . .

Легко:

Код:

Var
 a:array[1..15] of integer;
 i,b,Imin,Sum:integer;
Begin
 Writeln('Vvedite 15 chisel');
 for i:=1 to 15 do
  begin
   Write('a[',i:2,']= ');
   Readln(a[i]);
  end;
 b:=a[1];
 Imin:=1;
 for i:=2 to 15 do
  if a[i]<b then
   begin
    b:=a[i];
    Imin:=i;
   end;
 writeln('Minimal: a[',Imin,']= ',b);
 Sum:=0;
 for i:=Imin+1 to 15 do Inc(Sum,a[i]);
 Writeln('Sum= ',Sum);
 readln;
end.

Alone · 22.12.2012, 20:49

Целый день голову ломал. СПС, выручил.

22.12.2012, 14:01	#1 (permalink)
Alone Новичок Регистрация: 22.12.2012 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal задача Помогите решить задачку. В массиве b1,b2 . . . b15 найти сумму элементов, стоящих правее минимального. минимальное число нашел, а вот, как найти сумму чисел стоящих правее не догоняю. . . Var a:array[1..15] of integer; i,b:integer; begin Writeln('Vvedite 15 chisel'); for i:=1 to 15 do Readln(a[i]); b:=a[1]; for i:=2 to 15 do begin if a[i]<b then b:=a[i]; end; writeln(b); readln; end.

22.12.2012, 14:01
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Возможно, ваша ваша проблема уже имеет решение на нашем форуме Задача. Записи Pascal Задача на Pascal

22.12.2012, 17:16	#2 (permalink)
Alone Новичок Регистрация: 22.12.2012 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	ну очень нужно, помогите знающие.

22.12.2012, 20:49	#4 (permalink)
Alone Новичок Регистрация: 22.12.2012 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Целый день голову ломал. СПС, выручил.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070