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