Программа в pascal. При помощи генератора случайных чисел создать линейный числовой массив состоящий из 15 элементов интервала -10:10 посчитать количество четных элементов массива,найти среднее арифметическое нечетных элементов, заменить все положительные элементы массива нулями,новый массив вывести на экран.

более месяца назад

Просмотров : 63 Ответов : 1

Лучший ответ:

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.

более месяца назад

Ваш ответ:

Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.