Вывод суммы каждых двух элементов масива - Pascal ABC

Формулировка задачи:

Суть в том что нужны вывести сумму каждых двух элемментов массива Например массив 1,3,4,6,4,9 На выводе должно быть 4, 10, 13 Вот код паскаля помогите как это выводить циклом? И было бы хорошо написать это не на паскале а на php(конечно без ручного ввода массива)

                    Листинг программы
                
 
                        
                          
                    
const N=6;
var
 a: array [1..N] of integer;
 i: integer;
begin
 for i:=1 to N do
  readln (a[i]);
  
  write(a[1]+a[2]);
  write(a[3]+a[4]);
  write(a[5]+a[6]);
 
end.

Решение задачи: «Вывод суммы каждых двух элементов масива»

textual
                            Листинг программы 
                        
 
                        
                          
                    
const max=100;
var a:array[1..max] of integer;
    n,i:integer;
begin
randomize;
write('Размер масива n=');
readln(n);
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=1+random(20);
  write(a[i]:4);
 end;
writeln;
writeln('Суммы пар элементов');
i:=1;
while i<n do
 begin
  write(a[i]+a[i+1]:4);
  inc(i,2);
 end;
if odd(n) then write(a[n]:4); //если размер нечетный
end.

Оцени полезность:

7 голосов , оценка 4.143 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы