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