SUM OF ARRAY PROGRAM IN DIFFERENT PROGRAMMING LANGUAGES

FORTRAN
C2345678901234567890123456789012345678901234567890...
      program arraysum
      integer temp,y,x(10)

      y = 1
      temp = 0
  10  if (y .ne. 11) then
         write(*,*) 'Input a number'
         read(*,*) x(y)
         y = y + 1
         goto 10
      endif

      y = 10
  20  if (y .ne. 0) then
         temp = temp + x(y)
         y = y - 1
         goto 20
      endif   

      write(*,*) 'The total is: '
      write(*,*) temp
      stop
      end   

C

#include <stdio.h>
int a[10];
int main()
{
        int j = 0;
        int t = 0;
        while (j < 10)
        {
                printf("Enter a number:");
                scanf("%d", &a[j]);
                printf("\n");
                j++;
        };
        for (j=0; j < 10; j++)
        {
                t = t + a[j];
        }
        printf("%d\n\n",t);
        exit(0);
} 

Pascal

Program arrayAddtion(input,output);
        Const
                MaxSize = 10;
        Type
                DataStorage = Array[1..MaxSize] of integer;
        Var
                size : integer;
                i,temp : integer;
                list : DataStorage;

        Procedure readArray(var l : DataStorage; var s :integer);
                Begin
                s := 1;
                Writeln('Please enter a list of integers, one per line.');
                For I :=  1 to 10 Do
                        Begin
                        s := s + 1;
                        Readln(l[s]);
                End;         

        End; { Procedure readArray }

        Begin { main }
                readArray(list,size);
                Writeln('Total is:');
                For I := 1 to size Do
                        temp := temp + list[i];
                Writeln(temp);
        End.

More soon....