Записать на языке паскаль (используются циклы) 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

Файл. папка вроде бы так