1. Массив из 10 элементов, вводим их с клавиатуры. Вывести на экран все положительные элементы и вычислить их сумму

2. Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их сумму (В массиве 20 элементов, заполнен случайными числами.)

3. Массив из 20 элементов, заполнен случайными числами в диапазоне от - 50 до 50. Вывести на экран, посчитать количество чисел, меньших 25

1

var

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

s, i:integer;

begin

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

for i:=1 to 10 do

if a[i]>0 then

begin

s:=s+a[i];

write (a[i],' ') ;

end;

writeln;

writeln ('Сумма: ', s) ;

end.

2

var

a:array[1 ... 20]of integer;

s, i:integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to 20 do

begin

a[i]:=random (20) ;

write (a[i],' ') ;

end;

writeln;

write ('Искомые элементы: ') ;

for i:=1 to 20 do

if i mod 2=1 then

begin

s:=s+a[i];

write (a[i],' ') ;

end;

writeln;

writeln ('Их сумма: ', s) ;

end.

3

var

a:array[1 ... 20]of integer;

s, i:integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to 20 do

begin

a[i]:=random (-50,50) ;

write (a[i],' ') ;

end;

writeln;

write ('Меньше 25: ') ;

for i:=1 to 20 do

if a[i]<25 then

begin

s:=s+1;

write (a[i],' ') ;

end;

writeln;

writeln ('Их количество: ', s) ;

end.