Сумма положительных чисел

Program symma2;

var a: array [1..10] of integer;

i, s: integer;

begin

s:=0;

for i:=1 to 10 do

begin

readln(a[i]);

if a[i]>0 then s:=s+a[i];

end;

writeln (‘Сумма положительных чисел = ’,s);

еnd.

Сумма и количество положительных чисел.

Program symma-kol;

var a: array [1..10] of integer;

i, s,k: integer;

begin

s:=0; k:=0;

for i:=1 to 10 do

if a[i]>0 then begin k:=k+1; s:=s+a[i]; end;

writeln (‘Сумма ’,s, ‘ количество’, k);

еnd.

Поиск заданного элемента в массиве.

Найти элементы массива большие числа 5.

Program elem;

var a: array [1..10] of integer;

i: integer;

begin

for i:=1 to 10 do

if a[i]>5 then writeln(a[i]);

еnd.

Поиск наибольшего (наименьшего) элемента в массиве.

Program mm;

var a: array [1..10] of integer;

i, max, min: integer;

begin

for i:=1 to 10 do readln(a[i]);

max:=a[1]; min:=a[1];

for i:=1 to 10 do

begin

if a[i]>max Then max:=a[i];

if a[i]<min Then min:=a[i];

end;

writeln (‘ max=’,max,’ min=’, min);

еnd.

Упорядочение массива

Упорядочение (сортировка) - это расположение значений элементов массива в порядке возрастания или убывания их значений.