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

Вопрос школьника по предмету Информатика

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