Предмет: Информатика,
автор: asvald27
Случайным образом получить 15 чисел, числа в диапазоне [-50, 50]. 2. Определить количество отрицательных среди них. 3. Определить минимальное. 4. Определить среднее арифметическое среди отрицательных. Необходимо сделать в паскале
Ответы
Автор ответа:
0
const n=15;
var a:array [1..n] of integer;
i,k,m,s:integer;
begin
for i:= 1 to n do
a[i]:= random(101)-50;
writeln(a);
for i:=1 to n do
if a[i] < 0 then k:=k+1;
writeln('Отрицательных элементов: ',k);
m:=a[1];
for i:=2 to n do
if a[i] < m then m:=a[i];
writeln('Минимальный элемент: ',m);
s:=0;
for i:=1 to n do
if a[i] < 0 then s:=s+a[i];
writeln('Среднее арифметическое отрицательных элементов: ',s/k)
end.
var a:array [1..n] of integer;
i,k,m,s:integer;
begin
for i:= 1 to n do
a[i]:= random(101)-50;
writeln(a);
for i:=1 to n do
if a[i] < 0 then k:=k+1;
writeln('Отрицательных элементов: ',k);
m:=a[1];
for i:=2 to n do
if a[i] < m then m:=a[i];
writeln('Минимальный элемент: ',m);
s:=0;
for i:=1 to n do
if a[i] < 0 then s:=s+a[i];
writeln('Среднее арифметическое отрицательных элементов: ',s/k)
end.
Автор ответа:
0
PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
Пример
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
Пример
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125
Похожие вопросы
Предмет: История,
автор: Аноним
Предмет: Алгебра,
автор: makcplay132
Предмет: Математика,
автор: darizkry
Предмет: Химия,
автор: nadyushanadezhda
Предмет: Алгебра,
автор: bosswaew