Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Iseult
0 / 0 / 1
Регистрация: 28.10.2011
Сообщений: 58
1

Одномерный массив, замена элемента

15.01.2012, 23:09. Просмотров 484. Ответов 1
Метки нет (Все метки)

Дан одномерный массив. Заменить каждый элемент суммой всех стоящих после него.

Помогите доделать, заранее спасибо.

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
32
33
34
35
36
{элемент одномерного массива заменяется суммой стоящих после него}
const nmass=100;
var a:array [1..nmass] of integer;
    i,n:byte; s:integer;
    
BEGIN
   writeln(' Введите количество элементов массива ');
   readln(n);
   writeln(' Введите массив ');
      for i:=1 to n do
       begin 
        write('a[',i,']=');
        read(a[i]);
       end;
   
   write(' Массив до изменения: ');
   for i:=1 to N do
     write(a[i], ' ');
   
   write(',');
    
   {изменение массива}
   i:=1; s:=0;
  repeat
     begin
      if i>1 then s:=s+a[i];
      a[i]:=s;
      i:=i+1;
     end
   until i<>N;
   
   write(' получившийся массив: ');
    for i:=1 to n do
    write(a[i], ' ');
      
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.01.2012, 23:09
Ответы с готовыми решениями:

Одномерный массив. Замена чисел на их индекс и
1) замена отрицательных элементов массива их индексами и поставить после...

одномерный массив, замена чётных чисел буквой а
ниже код программы который заменяет четные числа на ноль. а надо сделать так...

Одномерный массив(поиск элемента)
в массиве нужно найти элемент заданный пользователем и подсчитать их кол-во...

вставка элемента в одномерный массив
Вставить два элемента с данными значениями:первый-после всех элементов, больше...

Заполните одномерный массив B так, чтобы значение каждого элемента с четным
2. Заполните одномерный массив B так, чтобы значение каждого элемента с четным...

1
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
15.01.2012, 23:45 2
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
{элемент одномерного массива заменяется суммой стоящих после него}
const nmass=100;
var a:array [1..nmass] of integer;
    i,n,j:byte; s:integer;
 
BEGIN
   writeln(' Введите количество элементов массива ');
   readln(n);
   writeln(' Введите массив ');
      for i:=1 to n do
       begin
        write('a[',i,']=');
        read(a[i]);
       end;
   write(' Массив до изменения: ');
   for i:=1 to N do
     write(a[i], ' ');
  write(',');
     for i:=1 to n-1 do
         begin
         s:=0;
         for j:=i+1 to n do
             inc(s,a[j]);
         a[i]:=s;
         end;
 
   write(' получившийся массив: ');
    for i:=1 to n do
    write(a[i], ' ');
 
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2012, 23:45

Одномерный массив из отрицательных чисел матрицы (до max элемента при построчном просмотре)
Прошу помочь с задачей. Дан массив X(n,m). Найти максимальный элемент....

Одномерный массив. Есть ли в одномерном массиве три подряд идущих одинаковых элемента
помогите пожалуйста решить задачу. Спасибо заранее Если в одномерном массиве...

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


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

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

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