Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 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.
Alone вне форума   Ответить с цитированием

Старый 22.12.2012, 14:01
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Возможно, ваша ваша проблема уже имеет решение на нашем форуме

Задача. Записи Pascal
Задача на Pascal

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

ну очень нужно, помогите знающие.
Alone вне форума   Ответить с цитированием
Старый 22.12.2012, 20:02   #3 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,976
Сказал(а) спасибо: 322
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 102185
По умолчанию

Цитата:
Сообщение от 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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 22.12.2012, 20:49   #4 (permalink)
Alone
Новичок
 
Регистрация: 22.12.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Целый день голову ломал. СПС, выручил.
Alone вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:10.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.