Массив a[1..15] заполняет случайными четными числами в диапазоне от -10 до 10 за тем переобразовывать массив заменяя каждый отрицательный массив на 0 . И подсчитать все эти отрицательные элементы и заменить их на 0. Помогите пожалуйста!! Срочно
More Questions From This User See All
Answers & Comments
Verified answer
const n=15;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(21)-10;
if a[i] mod 2 <> 0 then a[i]:=a[i]+1
end;
writeln('Исходный массив: ',a);
for i:=1 to n do
if a[i] < 0 then
begin
a[i]:=0;
k:=k+1
end;
writeln('Преобразованный массив: ',a);
writeln('Отрицательных элементов было: ',k)
end.