Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Lily21fly
0 / 0 / 0
Регистрация: 05.04.2010
Сообщений: 3
1

массиве А(n) каждый элемент, заменить суммой всех предыдущих элементов первый заменить на 0

05.04.2010, 23:21. Просмотров 1035. Ответов 2
Метки нет (Все метки)

помогите пожалуйста!
Например, в массиве 5 чисел: 1,2,3,4,5 Они должны заменяться таким образом: A[5] =4+3+2+1=10, и т.д. а первое заменяем на ноль. Должно получиться 0,1,3,6,10
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.04.2010, 23:21
Ответы с готовыми решениями:

в массиве А(n) каждый элемент, кроме первого, заменить суммой всех предыдущих элементов
Помогите, пожалуйста!!! Нужно решить задачу: в массиве А(n) каждый элемент, кроме первого, заменить...

каждый элемент, кроме первого, заменить суммой всех предыдущих элементов
В МАССИВЕ А(n) каждый элемент, кроме первого, заменить суммой всех предыдущих элементов. Не...

Заменить каждый отрицательный элемент массива произведением всех ненулевых элементов
Паскаль. Заменить каждый отрицательный элемент произведением всех ненулевых элементов массива (8);

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

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

2
кот Бегемот
Платежеспособный зверь
8613 / 4026 / 1574
Регистрация: 28.10.2009
Сообщений: 10,569
05.04.2010, 23:33 2
Лучший ответ Сообщение было отмечено Lily21fly как решение

Решение

Цитата Сообщение от Lily21fly Посмотреть сообщение
помогите пожалуйста!
Например, в массиве 5 чисел: 1,2,3,4,5 Они должны заменяться таким образом: A[5] =4+3+2+1=10, и т.д. а первое заменяем на ноль. Должно получиться 0,1,3,6,10
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
var
a:array[1..100]of integer;
i,j,n:integer;
begin
randomize;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('massiv');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],' ');
end;
for i:=n downto 1 do
begin
a[i]:=0;
for j:=1 to i-1 do
a[i]:=a[i]+a[j];
end;
writeln;
writeln('novyj massiv');
for i:=1 to n do
write(a[i],' ');
readln;
end.
0
Lily21fly
0 / 0 / 0
Регистрация: 05.04.2010
Сообщений: 3
07.04.2010, 21:19  [ТС] 3
УРААААА! Спасибо огромное!
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.04.2010, 21:19

Заменить каждый элемент массива суммой соседних индексов. Если соседних элементов нет, то число оставить без изменения.
1)Дан одномерный массив, который содержит не более 50 целых чисел. Заменить каждый элемент массива...

В массиве Y состоящего из 20 элементов найти наибольший элемент и заменить его значением суммы всех элементов
Всем доброго дня суток!!! Не подскажите мне решение следующих задач: 1. В массиве Y состоящего из...

Каждый отрицательный элемент в массиве заменить результатом его целочисленного деления на 3
Ввести двумерный массив A(N x M). Каждый отрицательный элемент в массиве заменить результатом его...


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

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

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