Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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



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

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

skype: newerow1989
По умолчанию

Код:

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.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 14.01.2018, 16:18   #3
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 16,964
Репутация: 5965
По умолчанию

В этом же цикле можно и последовательность получать, тогда и массива ни какого не нужно
Код:

   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, 16:26   #4
Rarrih
Новичок
 
Регистрация: 14.01.2018
Сообщений: 3
Репутация: 10
По умолчанию

можно вывод сделать через memo ?
Rarrih вне форума   Ответить с цитированием
Старый 14.01.2018, 16:27   #5
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,628
Репутация: 1463

skype: newerow1989
По умолчанию

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

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



Опции темы

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

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

Быстрый переход

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




22:32.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru