Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/15: Рейтинг темы: голосов - 15, средняя оценка - 4.73
0 / 0 / 0
Регистрация: 18.11.2013
Сообщений: 4
1

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

18.11.2013, 13:39. Просмотров 2924. Ответов 2
Метки нет (Все метки)

сумму модулей элементов массива, расположенных после первого
элемента, равного нулю
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2013, 13:39
Ответы с готовыми решениями:

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

Определить, сумму элементов массива, расположенных после первого положительного элемента
Дан массив 10 вещественных элементов.Определить, сумму элементов массива, расположенных после...

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

Вычислить сумму элементов массива, расположенных после первого положительного элемента
Кто знает как решается это? В одномерном массиве, состоящем из n вещественных элементов,...

2
Модератор
62538 / 46713 / 32196
Регистрация: 18.05.2008
Сообщений: 113,060
18.11.2013, 13:51 2
Лучший ответ Сообщение было отмечено Tolyamba228 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,k,s:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
k:=0;
for i:=1 to n do
 begin
  a[i]:=-5+random(11);
  write(a[i]:4);
  if (a[i]=0)and(k=0)then k:=i
 end;
writeln;
if k=0 then write('В иассиве нет нулевых элемнтов')
else if k=n then s:=0
else
 begin
  s:=0;
  for i:=k+1 to n do
  s:=s+abs(a[i]);
  write('Сумма модулей после первого 0=',s)
 end;
readln
end.
0
0 / 0 / 0
Регистрация: 18.11.2013
Сообщений: 4
19.11.2013, 12:47  [ТС] 3
Спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2013, 12:47

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

Найти номер первого положительного элемента массива в1,в2 ... в15 и сумму элементов, расположенных правее него
1) найти номер первого положительного элемента массива в1,в2 ... в15 и сумму элементов,...

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

Найти сумму элементов массива, расположенных после последнего минимального элемента
Вычислить: 1) кол-во элементов, меньших С 2) сумму элементов массива, расположенных после...

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


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

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

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