Вычислить сумму массивов

@andrey94 · Регистрация: 23.10.2011

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

Pascal

Program s; 
    Var
       a, b, c: array [1..100] of integer;
       I, n: byte; 
    Begin 
       Write (‘введите размерность массивов:’); 
       Readln(n); 
       For i:=1 to n do 
          Readln (a[i]); { ввод массива a} 
       For i:=1 to n do 
          Readln (b[i]); { ввод массива b} 
       For i:=1 to n do 
          C[i]:=a[i]+b[i]; { вычисление суммы массивов } 
       For i:=1 to n do 
          write (c[i],’ ‘); { вывод массива с } 
    end.

народ помогите непойму как работает задача. вычисляет сумму массивов а получаются совсем другие цифры

@CodeR · 24.06.2012, 09:10

Код правильный,и вычисляет всё правильно...

@CodeR Фрилансер 3418 / 2815 / 3000 Регистрация: 08.02.2012 Сообщений: 8,587 Записей в блоге: 1
	24.06.2012, 09:10	2
	Код правильный,и вычисляет всё правильно... 1