Программа в pascal. При помощи генератора случайных чисел сделать линейный числовой
Программка в pascal. При помощи генератора случайных чисел создать линейный числовой массив состоящий из 15 частей промежутка -10:10 посчитать количество четных элементов массива,отыскать среднее арифметическое нечетных частей, поменять все положительные элементы массива нулями,новый массив вывести на экран.
Задать свой вопрос2 ответа
Сережа Осадчих
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 2lt;gt;0 then
begin
kn:=kn+1;
sum:=sum+a[i];
end;
if a[i]gt;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.
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 2lt;gt;0 then
begin
kn:=kn+1;
sum:=sum+a[i];
end;
if a[i]gt;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.
Серега Михайлицын
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-10,10); a.Println; // создали и вывели значения
Writeln('Четных :',a.Where(n-gt;n.IsEven).Count);
Writeln('Ср.арифм. нечетных: ',a.Where(n-gt;n.IsOdd).Average);
a.Transform(n-gt;ngt;0?0:n); a.Println // заменили и вывели значения
end.
Пример
6 -3 -9 -9 10 1 -1 -4 -6 5 7 8 4 -8 -3
Четных :7
Ср.арифм. нечетных: -1.5
0 -3 -9 -9 0 0 -1 -4 -6 0 0 0 0 -8 -3
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-10,10); a.Println; // создали и вывели значения
Writeln('Четных :',a.Where(n-gt;n.IsEven).Count);
Writeln('Ср.арифм. нечетных: ',a.Where(n-gt;n.IsOdd).Average);
a.Transform(n-gt;ngt;0?0:n); a.Println // заменили и вывели значения
end.
Пример
6 -3 -9 -9 10 1 -1 -4 -6 5 7 8 4 -8 -3
Четных :7
Ср.арифм. нечетных: -1.5
0 -3 -9 -9 0 0 -1 -4 -6 0 0 0 0 -8 -3
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов