Const
N = 15;
Var A:array[1..N] of integer;
i,Kc,Kn,Sn:integer;
Begin
Kc:=0;
Sn:=0;
Kn:=0;
Randomize;
Write('Исходный массив:');
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
Sn:=Sn+A[i];
Kn:=Kn+1;
End;
if A[i]>0 then A[i]:=0;
End;
WriteLn;
WriteLn('Количество чётных: ',Kc);
WriteLn('Среднее арифметическое нечётных: ',Sn/Kn);
Write('Новый массив:');
For i:= 1 to N do
Write(' ',A[i])
End.
Пример:
Исходный массив: -1 4 -8 9 -6 -10 0 3 9 -1 1 4 -2 -6 3
Количество чётных: 8
Среднее арифметическое нечётных: 3.28571428571429
Новый массив: -1 0 -8 0 -6 -10 0 0 0 -1 0 0 -2 -6 0
28 - 100%
37 - x %
x = (37*100)/28 = 132,14 %
Отличается на 32,14 %
Так как вы не указали язык на котором вам нужна программа, то приведу на бейсике (basic) как самый вероятно подходящий. Просто скопируйте текст из приложенного файла в редактор кода и скомпилируйте, что бы получить программу.
Файл сохранен в формате WordPad
Назначение помогать людям за зверями . Команды :напоминать когда кормит , играть(может делать все сам) Это задание на воображение подумай)
program raf105;
var
i,n: integer;
begin
write('Введите число: ');
readln(n);
write('Чётные: ');
for i:=1 to n do
if i mod 2 = 0
then write(i,' ');
writeln;
write('Нечётные: ');
for i:=1 to n do
if i mod 2 <> 0
then write(i,' ');
end.
<h3><u>PascalABC 3.4.2</u></h3>