приветик!напишите плиз проги...в паскале.

uses CRT;
const n = 10;
var a: array [1..n] of Integer; s,k: Integer;
begin
clrscr;
s:=0;
for k:=1 to n do begin
write('a[',k,']=');
readln(a[k]);
end;
for k:=1 to n do s:=s+a[k];
writeln(s);
readkey;
end.

uses CRT;
const n = 10;
var a: array [1..n] of Integer; s,k: Integer;
begin
clrscr;
s:=0;
for k:=1 to n do begin
write('a[',k,']=');
readln(a[k]);
end;
for k:=1 to n do if a[k] mod 2 = 1 then s:=s+a[k];
writeln(s);
readkey;
end.

Оплата?

ну вы даёте. чему в школах учят вас?

1. Программа вычисления суммы всех элементов массива.

Program Pr22 (Input, Output);

Var

X : Array [1..20, 1..20] Of Real;

N : Integer;

S : Real;

i, j : Integer;

Begin
Начало тела программы

WriteLn ('PASCAL: Вычисление суммы элементов прямоугольной таблицы. ');
Формулировка цели алгоритма

Write ('Введите размерность таблицы: N = ');
Запрос ввода N - числа элементов массива

ReadLn (N);
Ввод N

WriteLn ('Введите элементы таблицы: ');
Запрос ввода элементов таблицы

For i := 1 To N Do
Цикл для i от 1 до N, где i - номер очередной строки

For j := 1 To N Do
Цикл для j от 1 до N, где j - номер очередного столбца

Begin
Начало тела цикла

Write ('X[', i, ',', j, '] = ');
Вывод удобной подсказки

ReadLn (X [i,j] );
Ввод очередного элемента - X[i,j]

End;
Конец тела цикла

S := 0;
Переменной S присваиваем начальное значение 0

For i := 1 To N Do
Цикл для i от 1 до N, где i - номер очередной строки

For j := 1 To N Do
Цикл для j от 1 до N, где j - номер очередного столбца

S := S + X [i, j];
Прибавляем к S очередной элемент массива X - X[i,j]

WriteLn ('Cумма: S = ', s: 6: 1);
Вывод полученного значения суммы

ReadLn;

End.

Самой слабо!!!! Это элементарно!!!!