Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 23.03.2012
Сообщений: 7
1

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

15.06.2012, 12:55. Просмотров 1251. Ответов 2
Метки нет (Все метки)

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.06.2012, 12:55
Ответы с готовыми решениями:

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

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

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

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

2
3019 / 1907 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
15.06.2012, 13:10 2
20 строчка должна быть такой:
Pascal
1
if flagZ > 0 then sum := sum + Abs(mas[i]);
Ведь говорится
Цитата Сообщение от Doc1991 Посмотреть сообщение
сумму модулей
1
0 / 0 / 0
Регистрация: 23.03.2012
Сообщений: 7
15.06.2012, 13:17  [ТС] 3
я это уже вводил но он как вроде не верно считает
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2012, 13:17

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

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

Найти Сумму модулей элементов массива, расположенных после первого отрицательного элемента
Сумму модулей элементов массива, расположенных после первого отрицательного элемента . Диапазон (...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.