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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам, всё собранное уйдет либо на оплату сервера, либо модераторам на шоколадки

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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

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

Заслуженный модератор
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес: Адрес:
Сообщений: 8,144
Репутация: 3966
По умолчанию

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

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


13:47.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


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