Вопрос по информатике:

Записать задачи на языке Паскаль (используются циклы)
1. Дан массив А имеющий 100 элементов. Заполнен в интервале -400 до 70. Заменить числа в массиве большие К на само число К
2. Дан массив А, имеющий 50 элементов. Заполнен в интервале от -100 до 10. Посчитать количество положительных чисел.

Ответ:

1)const n=100;var a:array[1..n] of integer;i,k:integer; beginRandomize;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  -25k = Измененный массив: -294 -223 -187    5  -79 -288 -367    5    5  -252)const n=50;var a:array[1..n] of integer;i,k:integer;beginRandomize;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  -89k = 1