Question

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

Answer 1

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