Придумайте и составьте для нее программу в паскале

найти сумму элементов одномерного массива. размер произвольный. элементы вводятся с клавиатуры.

 

program summa;

var a: array[1..100] of real;

          i, n: integer;

              s: real;

begin

  write (‘n=’); readln (n);

  s: =0;

  for i: =1 to n do

        begin

            write (‘введитечисло’); readln (a[i]);

            s: =s+a[i];

        end;

        writeln(‘сумма   элементов равна  ‘,s);

end.

// определение числа чётных и нечётных цифр в числе var n, a, b : integer; begin a: =0; //чётные b: =0; //нечётные readln (n);       if n< 0 then               n: =-n; // уничтожение знака числа       repeat               if ((n mod 10) mod 2< > 0) then                   a: = a+1               else                   b: = b+1;               n: = n div 10; // удаление последней цифры числа       until n=0;       writeln ('чётных - '+b);       writeln ('нечётных - '+a); end.

java

import java.util.scanner;

public class main {

    public static void main(string[] args) {

        scanner scanner = new scanner(system.in);

        int a = scanner.nextint();

        int b = scanner.nextint();

        int c = scanner.nextint();

            if (a> =b & & a> =c) system.out.println(a);

            if (b> =a & & b> =c) system.out.println(b);

        if (c> =a & & c> =b) system.out.println(c);

    }

}