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

Дан массив А. Составить массив В, в котором b[ i ]=a[0]+a[1]+a[2]+....+a[ i ] i=0,1,2,3,4......n-1. Распечатать массив В

01.03.2014, 10:16. Показов 1397. Ответов 3
Метки нет (Все метки)

Дан массив А. Составить массив В, в котором b[ i ]=a[0]+a[1]+a[2]+....+a[ i ] i=0,1,2,3,4......n-1. Распечатать массив В.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2014, 10:16
Ответы с готовыми решениями:

Дан массив А. Составить массив В, в котором b[ i ]=a[0]+a[1]+a[2]+....+a[ i ] i=0,1,2,3,4......n-1. Распечатать массив В
Дан массив А. Составить массив В, в котором b=a+a+a+....+a i=0,1,2,3,4......n-1. Распечатать массив...

Дан массив целых чисел, в котором есть нулевые элементы. Создать массив из номеров этих элементов
Дан массив целых чисел, в котором есть нулевые элементы. Создать массив из номеров этих элементов....

Дан массив чисел a(n). Вывести массив b(n), в котором bi=a1+a2+…+ai
Помогите решить ннужно очень срочно. Дан массив чисел а(n). Вывести массив в(n), в котором...

Дан массив чисел A [1.n]. Вывести массив B [1.n], в котором B[i]= A[1]+ A[2]+… A[i]
Дан массив чисел A . Вывести массив B , в котором B= A+ A+… A.

3
Фрилансер
3414 / 2811 / 3000
Регистрация: 08.02.2012
Сообщений: 8,265
Записей в блоге: 1
01.03.2014, 10:44 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
Const nmax=100;
Var A,B:array[0..nmax-1] of integer;
    i,j,n:byte;
Begin
    Repeat
     write('Введите n<=',nmax,': ');readln(n);
    Until n in [1..nmax];
    writeln('Массив A');
    For i:=0 to n-1 do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:5);
    End;
    writeln;
    writeln('Массив B');
    For i:=0 to n-1 do
    Begin
      For j:=0 to i do
       B[i]:=B[i]+A[j];
      write(B[i]:5);
    End;
    readln;
End.
0
magirus
01.03.2014, 10:49
  #3
 Комментарий администратора 
kyz, не плодите темы, дубли все равно будут удалены., внимательно выбирайте раздел для создания тем, читайте правила форума
0
0 / 0 / 0
Регистрация: 26.02.2014
Сообщений: 13
01.03.2014, 10:56  [ТС] 4
спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.03.2014, 10:56

Дан одномерный массив из 40 элементов. Сформировать второй массив, в котором сначала идут все четные эле-менты
Дан одномерный массив из 40 элементов. Сформировать второй массив, в котором сначала идут все...

Дан массив А размера N. Не изменяя данный массив вывести номера его элементов в том порядке, в котором соответствующие элементы образуют возрастающую
помогите пожалуйста решить задачку по паскалю: Дан массив А размера N. Не изменяя данный...

Дан вещественный массив А.Составить одномерный массив Б из различных элементов массива А
{ Условие: Дан вещественный массив A(n).Составить одномерный массив В из различных элементов...

Дан двухмерный массив A[m,n]. Составить одномерный массив из номеров столбцов исходного двухмерного массива, в
Добрый день, никак не получается решить данную задачу. Дан двухмерный массив A. Составить...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru