Написать на паскале программу, которая запрашивает с клавиатуры n произвольных чисел и ищет их сумму. число n вводится с клавиатуры.

Program sum var n,i,s: integer; a: array[1..1000] of integer; begin write ('vvedite n'); readln(n); write('vvedite n chisel'); for i: =1 to n do read(a[i]); s: =0; for i: =1 to n do s: = s+a[i]; write('summa ravna', s) end вроде так. это в консоли, так что она может сразу закрыться после выполнения программы.

Так как на мой вопрос не было ответа, то примем, что количество вводимых с клавиатуры символов тоже вводится с клавиатуры. const   maxn = 100; //изменяйте по усмотрению type   myarr = array [1..maxn] of char; var   a: myarr;   n: longint; procedure input(var a: myarr; n: longint); var   i: longint; begin   for i : = 1 to n do     read(a[i]); end; function kolvo_gl(a: myarr; n: longint): longint; var   i, k: longint; begin   k : = 0;   for i : = 1 to n do     case a[i] of       'a', 'i', 'u', 'o', 'e': inc(k);     end;   kolvo_gl : = k; end; begin   readln(n);   input(a, n);   writeln(kolvo_gl(a, n)); end.

Var i,j,k,min: integer;     a: array[1..10,1..10] of integer; begin   randomize;   for i: =1 to 10 do   for j: =1 to 10 do     a[i,j]: =random(15)+1;   min: =a[1,1];   for i: =1 to 10 do   for j: =1 to 10 do     if a[i,j]< min then min: =a[i,j];   for i: =1 to 10 do   for j: =1 to 10 do     if min=a[i,j] then k: =k+1;   for i: =1 to 10 do   begin   for j: =1 to 10 do write(a[i,j]: 5);   writeln;   end;   writeln('минимальный элемент=',min);   writeln('кол-во равных элементов=',k); end.