Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.
Внимание! Некоторое время письма не доходят до аккаунтов MAIL RU GROUP, не доходят на все почтовые ящики mail.ru, inbox.ru, bk.ru. Пишите им жалобы, чтобы быстрее восстановили получение писем, регистрируйтесь через яндекс почту и gmail, туда письма с активизацией доходят.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

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

Ответ
 
Опции темы
Старый 13.11.2018, 20:46   #1
Руслан Белый
Новичок
 
Регистрация: 13.11.2018
Сообщений: 2
Репутация: 10
Вопрос Pascal: Дан массив, состоящий из n целых элементов, вычислить сумму модулей элементов массива, расположенных после

Составить программу и блок-схему Pascal:

Дан массив, состоящий из n целых элементов, вычислить сумму модулей элементов массива, расположенных после первого элемента, равного нулю.
Руслан Белый вне форума   Ответить с цитированием
Старый 13.11.2018, 21:07   #2
Вадим Мошев
гигаМодератор :)
Заслуженный модератор
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес:
Сообщений: 7,798
Репутация: 3781
По умолчанию

Руслан Белый, Обращайтесь ко мне на почту vadimFreelance (co6ака) yandex toчка ru
Сделаю за небольшое денежное вознаграждение. Подробнее у меня в подписи.
Вадим Мошев на форуме   Ответить с цитированием
Старый 25.11.2018, 09:55   #3
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,725
Репутация: 1573

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

Код:

const n=10;
var i,s:integer;
    p:array[1..n] of integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   i:=1;
   While p[i]<>0 do
      Inc(i);
   s:=0;
   For i:=i+1 to n do
      s:=s+Abs(p[i]);
   Writeln(s);
   Readln;
end.

__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Pascal: Дан массив, состоящий из n целых элементов, вычислить минимальный по модулю элемент массива Руслан Белый Паскаль 2 25.11.2018 09:55
Дан массив из 12 целых чисел. Найти сумму положительных элементов массива claaYs Помощь студентам 1 12.11.2017 13:25
вычислить сумму целых частей элементов массива, расположенных после последнего отрицательного элемента shezik Помощь студентам 2 25.04.2016 20:05
Дан массив целых чисел,состоящий из 10 элементов Stifleroy Паскаль 1 23.04.2014 19:42
1)Дан массив целых чисел. Найти сумму элементов массива, кратных А или В. logikal Помощь студентам 4 22.04.2014 20:58


20:29.


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

RusProfile.ru


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