Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.01.2018, 12:43   #1
Rarrih
Новичок
Джуниор
 
Регистрация: 14.01.2018
Сообщений: 3
По умолчанию Массив. Получить сумму всех элементов, следующих за первым таким элементом А

Даны натуральное число n, целые числа А, Х1, ..., Хn. Если в последова-
тельности есть хотя бы один элемент, равный А, то получить сумму всех элементов,
следующих за первым таким элементом; в противном случае ответом должно быть
число 10.
Rarrih вне форума Ответить с цитированием
Старый 14.01.2018, 15:10   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,945
По умолчанию

Код:
const n=10;
      a=6;
var x:array[1..n] of integer;
    i,ai,s:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      x[i]:=Random(21);
      Write(x[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   ai:=0;
   For i:=1 to n do
      If a=x[i] then
      begin
         ai:=i;
         Break;
      end;
   s:=10;
   If ai<>0 then
   begin
      s:=0;
      For i:=ai+1 to n do
         s:=s+x[i];
   end;
   Writeln(s);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 14.01.2018, 15:18   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

В этом же цикле можно и последовательность получать, тогда и массива ни какого не нужно
Код:
   ai:=10; Exists:=False;
   For i:=1 to n do
    if Exists then Inc(ai,x[i])
    else if a=x[i] then begin Exists:=True; ai:=0; end;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 14.01.2018, 15:26   #4
Rarrih
Новичок
Джуниор
 
Регистрация: 14.01.2018
Сообщений: 3
По умолчанию

можно вывод сделать через memo ?
Rarrih вне форума Ответить с цитированием
Старый 14.01.2018, 15:27   #5
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,945
По умолчанию

А не проще ли ответ выводить через Label?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 14.01.2018, 18:24   #6
Rarrih
Новичок
Джуниор
 
Регистрация: 14.01.2018
Сообщений: 3
По умолчанию

еще такой вопрос, какие элементы должны быть на форме?
Rarrih вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
дан двумерный массив найти сумму элементов массива между первым и последним положительным числом qqq`` Общие вопросы Delphi 7 23.10.2017 16:17
дан двумерный массив 3 на 3 найти сумму элементов массива между первым и Последним положительным числом qqq`` Паскаль, Turbo Pascal, PascalABC.NET 1 16.10.2017 08:27
Матрица а(4,4) В строке с отрицательным элементом на главной диагонали найти сумму всех элементов Андрей23 Помощь студентам 7 20.11.2013 11:32
Дана матрица С в строках с положительным элементом на побочной диагонали найти сумму всех элементов. greml Паскаль, Turbo Pascal, PascalABC.NET 0 02.12.2012 18:55
Вычислить сумму тех элементов списка, значения которых меньше значений всех элементов, непосредственно следующих за ними (Delphi) Liba Помощь студентам 6 30.11.2012 00:34