Написать программу в Pascale, которая генерирует три последовательности из десяти случайных чисел в диапазоне от 1 до 10, выводит каждую
последовательность на экран и вычисляет среднее арифметическое каждой
последовательности. Тут главное чтоб выводило три Разные строчки.
nn = 100; { максимальное количество элементов }
var
a:array[1..nn] of integer;
i,n,k,kn,kp,ko,ke: integer;
begin
Writeln('Введите количество элементов в массиве (n<=100): ');
Readln(n);
Writeln('Введите элементы массива');
kn:=0; kp:=0; ko:=0; ke:=0;
for i := 1 to n do
begin
Read(k); a[i]:=k;
if k>0 then Inc(kp)
else if k<0 then Inc(kn);
if (k mod 2)=0 then Inc(ke) else Inc(ko)
end;
Writeln('Положительных элементов ',kp,', отрицательных ',kn);
Writeln('четных элементов ',ke,', нечетных ',ko);
end.
Тестовое решение:
Введите количество элементов в массиве (n<=100):
13
Введите элементы массива
16 -5 8 21 0 -5 13 32 7 11 -4 2 -5
Положительных элементов 8, отрицательных 4
четных элементов 6, нечетных 7
var a:array[1..999]of integer;
i,n:integer;
begin
write ('Введите кол-во чисел: ');
readln (n);
for i:=1 to n do
begin
write ('Введите ',i,' число: ');
readln (a[i]);
end;
WRITELN;
write ('Числа введённые пользователем: ');
for i:=1 to n do
write (a[i],' ');
WRITELN;
WRITELN;
write ('Положительные: ');
for i:=1 to n do
begin
if a[i]>0 then write (a[i],' ');
end;
WRITELN;
write ('Отрицательные: ');
for i:=1 to n do
begin
if a[i]<0 then write (a[i],' ');
end;
WRITELN;
write ('Чётные: ');
for i:=1 to n do
begin
if a[i] mod 2 = 0 then write (a[i],' ');
end;
WRITELN;
write ('Нечётные: ');
for i:=1 to n do
begin
if a[i] mod 2 <> 0 then write (a[i],' ');
end;
end.