Записать задачи на языке Паскаль (используются циклы)

1. Дан массив А имеющий 100 элементов. Заполнен в интервале - 400 до 70. Заменить числа в массиве большие К на само число К

2. Дан массив А, имеющий 50 элементов. Заполнен в интервале от - 100 до 10. Посчитать количество положительных чисел.

1)

const n=100;

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

i, k:integer;

begin

Randomize;

writeln ('Массив A:') ;

for i:=1 to n do

begin

a[i]:=random (471) - 400;

write (a[i]:5) ;

end;

writeln;

write ('k = ') ;

readln (k) ;

for i:=1 to n do

if a[i]>k then a[i]:=k;

writeln ('Измененный массив:') ;

for i:=1 to n do write (a[i]:5) ;

writeln;

end.

Пример (для n=10) :

Массив A:

-294 - 223 - 187 51 - 79 - 288 - 367 38 21 - 25

k = Измененный массив:

-294 - 223 - 187 5 - 79 - 288 - 367 5 5 - 25

2)

const n=50;

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

i, k:integer;

begin

Randomize;

writeln ('Массив A:') ;

for i:=1 to n do

begin

a[i]:=random (111) - 100;

write (a[i]:5) ;

end;

writeln;

k:=0;

for i:=1 to n do

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

writeln ('k = ', k) ;

end.

Пример (для n=10) :

Массив A:

-92 - 93 - 84 - 77 - 9 - 3 8 - 68 - 25 - 89

k = 1