Помогите, пожалуйста, безотлагательно!!!!Дан одномерный массив B[N] 5amp;lt;=Namp;lt;=20. Отыскать среднее
Помогите, пожалуйста, безотлагательно!!!!
Дан одномерный массив B[N] 5lt;=Nlt;=20. Отыскать среднее арифмитическое min и max значений.
София Аджигитова
язык программирования?
Ульяна Крумкачева
мне тоже занимательно. расписываюсь
2 ответа
Макс
// PascalABC.NET 3.0, сборка 1128
const
nn=20;
var
b:array[1..nn] of integer;
i,n,bmin,bmax:integer;
begin
Randomize;
Write('n='); Read(n);
Writeln('Элементы массива');
bmax:=-1000; bmin:=1000;
for i := 1 to n do begin
b[i]:=Random(51)-25;
Write(b[i],' ');
if b[i]lt;bmin then bmin:=b[i]
else
if b[i]gt;bmax then bmax:=b[i]
end;
Writeln;
Writeln('Ср. арифметическое малого и наибольшего: ',
(bmin+bmax)/2)
end.
Тестовое решение:
n=15
Элементы массива
3 16 20 13 25 -2 13 -18 17 10 -7 -18 2 -20 -2
Ср. арифметическое минимального и наибольшего: 2.5
const
nn=20;
var
b:array[1..nn] of integer;
i,n,bmin,bmax:integer;
begin
Randomize;
Write('n='); Read(n);
Writeln('Элементы массива');
bmax:=-1000; bmin:=1000;
for i := 1 to n do begin
b[i]:=Random(51)-25;
Write(b[i],' ');
if b[i]lt;bmin then bmin:=b[i]
else
if b[i]gt;bmax then bmax:=b[i]
end;
Writeln;
Writeln('Ср. арифметическое малого и наибольшего: ',
(bmin+bmax)/2)
end.
Тестовое решение:
n=15
Элементы массива
3 16 20 13 25 -2 13 -18 17 10 -7 -18 2 -20 -2
Ср. арифметическое минимального и наибольшего: 2.5
Светлана Гордина
include lt;iostreamgt;
using namespace std;
void main()
int n;result;
cin gt;gt; n;
int *mass=new int[n];
for (int i:=5 ; ilt;n;++i)
mass[i] = rand();
int max=mass[0];
int min=mass[0];
for (int i:=5 ; ilt;n;++i)
if (mass[i]gt;=max)
max=mass[i];
for (int i:=5 ; ilt;n;++i)
if (mass[i]lt;=min)
min=mass[i];
result=(max+min)/2;
coutlt;lt;result;
system("pause");
using namespace std;
void main()
int n;result;
cin gt;gt; n;
int *mass=new int[n];
for (int i:=5 ; ilt;n;++i)
mass[i] = rand();
int max=mass[0];
int min=mass[0];
for (int i:=5 ; ilt;n;++i)
if (mass[i]gt;=max)
max=mass[i];
for (int i:=5 ; ilt;n;++i)
if (mass[i]lt;=min)
min=mass[i];
result=(max+min)/2;
coutlt;lt;result;
system("pause");
Степка Перроте
и с чего вы взяли что с покатит?
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов