Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Отсортировать динамический список, используя основной (заполненный) и второй пустой список https://www.cyberforum.ru/ turbo-pascal/ thread606368.html Вроде бы сделал, но почему-то пропадает первый элемент... Иногда последний, не могу отследить... Не могли бы вы глянуть, может кто-нибудь что-то увидит? Очень хотелось бы разобраться.. procedure...	Turbo Pascal Преобразовать строку, оставив в ней только первые два слова Составить подпрограмму для решения следующей задачи: 2. Задана строка символов, состоящая из отдельных слов, разделенных пробелами. Преобразовать ее, оставив в ней только первые два слова. ...
Процедуры и функции. Определить разности наибольших и наименьших значений элементов строк Turbo Pascal Составить подпрограмму для решения следующей задачи: 1. Даны натуральные M, N и матрица действительных чисел размером MxN. Определить числа B1,B2,...,BM, равные разностям наибольших и наименьших...	Turbo Pascal Сводная ведомость результатов сессии: вывести список отсортированный по фамилиям Ребята, завтра зачет, нужно срочно сдать лабораторную, очень надеюсь на вашу помощь !!! Имеется сводная ведомость результатов экзаменационной сессии студенческой группы, которая содержит фамилии... https://www.cyberforum.ru/ turbo-pascal/ thread606360.html
Turbo Pascal Сформировать дерево по заданным правилам https://www.cyberforum.ru/ turbo-pascal/ thread606327.html нужно написать прогу с деревом, иначе я буду висеть на дереве( пасаны вообще ребята! сформировать дерево глубины N (задано пользователем) по правилу: 1) у крайнего левого, крайнего правого может...	Написать процедуру, которая заданный в файле текст (за ним следует точка) распечатывает в обратном порядке Turbo Pascal Написать процедуру, которая заданный в файле текст (за ним следует точка) распечатывает в обратном порядке.
Turbo Pascal Подсчитать количчество символов во введённой строке Во введённой строке подсчитайте количество символов '*' и символов '!' Помогите пожалуйста! Очень надо! Заранее огромное спасибо! Вот есть эта же задача, которую делал на паре, но что именно...	Turbo Pascal Файлы записей. Найти самую позднюю дату составить программы с помощью которых: -сформировать файл из записей, содержащих различные даты -найти самую позднюю дату. https://www.cyberforum.ru/ turbo-pascal/ thread606313.html
Turbo Pascal В массиве вычислить номер максимального элемента https://www.cyberforum.ru/ turbo-pascal/ thread606306.html задача №2 В одномерном массиве, состоящем из n вещественных элементов, вычислить номер максимального элементов массива. заранее благодарен за оказанную помощь	Turbo Pascal Добавить процедуру сортировки шелла (отсортировать нужно массив В) var a:array of integer; b:array of integer; i,j: integer; n,m: integer; k: integer; begin randomize; writeln('Введите размеры матрицы NxM?'); readln(n,m); ... https://www.cyberforum.ru/ turbo-pascal/ thread606304.html

Doc1991

0 / 0 / 0

Регистрация: 23.03.2012

Сообщений: 7

Вычислить сумму модулей элементов массива, расположенных после первого элемента, равного нулю

15.06.2012, 12:55. Просмотров 1254. Ответов 2

Метки (Все метки)

в одномерном массиве состоящем из n вычислить сумму модулей элементов массива расположенных после первого элемента равного нулю.

Посмотрите что не так и исправьте пожалуйста

Pascal

const
 n = 100;
 var
 
 i,l, flagZ : integer;
 sum : real;
 mas : array[1..n] of real;
 
begin
  sum := 0;
  flagZ := 0;
  write('Input kol-vo elementov massiva = ');
  readln(l);
  for i:= 1 to l do
  begin
    write(' input MAS[ ', i, ' ] = ');
    readln(mas[i]);
    if mas[i] = 0 then inc(flagZ);
    if flagZ > 0 then sum := sum + mas[i];
  end;
  writeln('Result = ', sum:2:2);
  readln;
end.

Вернуться к обсуждению:
Вычислить сумму модулей элементов массива, расположенных после первого элемента, равного нулю

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.06.2012, 12:55

Готовые ответы и решения:

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
В одномерном массиве, состоящем из N целочисленных элементов, вычислить: 1.Сумму модулей элементов...

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
В одномерном массиве, состоящем из n целочисленных элементов, вычислить: 1) минимальный по модулю...

Найти сумму модулей элементов массива, расположенных после первого элемента, равного 0
Доброго времени суток, Уважаемые формучане! Необходима помощь. Одномерные массивы В...

Найти сумму модулей элементов, расположенных после первого элемента, равного 0
помогите пожалуйста в одномерном массиве состоящнм из n уелых элементов вычеслить а) минимальный...

Наверх