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

@kyz · Регистрация: 26.02.2014

Author24 — интернет-сервис помощи студентам

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

@CodeR · 01.03.2014, 10:44

Pascal

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.

magirus · 01.03.2014, 10:49

Комментарий администратора

kyz, не плодите темы, дубли все равно будут удалены., внимательно выбирайте раздел для создания тем, читайте правила форума

@kyz · 01.03.2014, 10:56 **[ТС]**

спасибо)

@kyz 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. Показов 1759. Ответов 3 Метки нет (Все метки) Дан массив А. Составить массив В, в котором b[ i ]=a[0]+a[1]+a[2]+....+a[ i ] i=0,1,2,3,4......n-1. Распечатать массив В. 0

@kyz 0 / 0 / 0 Регистрация: 26.02.2014 Сообщений: 13
	01.03.2014, 10:56 [ТС]	4
	спасибо) 0