Вопрос по информатике:
Заполните массив случайными числами в диапазоне 0..100 и подсчитайте отдельно среднее отдельно среднее значение все элементов, меньших 50, и среднее значение все элементов, которые больше или равны 50 (Паскаль).
Пожаловаться
- 01.10.2015 10:33
- Информатика
- remove_red_eye 13880
- thumb_up 7
Ответы и объяснения 1
Program q;
const N=10; //количество элементов массива
var
a:array[1..N] of integer;
b,c,d:integer;
begin
randomize;
d:=0;
c:=0;
for b:=1 to N do
a[b]:=random(100);
for b:=1 to N do
if(a[b]<50)then
begin
c:=c+1;
d:=d+a[b];
end;
writeln(d/c);
d:=0;
c:=0;
for b:=1 to N do
a[b]:=random(100);
for b:=1 to N do
if(a[b]>=50)then
begin
c:=c+1;
d:=d+a[b];
end;
write(d/c);
end.
const N=10; //количество элементов массива
var
a:array[1..N] of integer;
b,c,d:integer;
begin
randomize;
d:=0;
c:=0;
for b:=1 to N do
a[b]:=random(100);
for b:=1 to N do
if(a[b]<50)then
begin
c:=c+1;
d:=d+a[b];
end;
writeln(d/c);
d:=0;
c:=0;
for b:=1 to N do
a[b]:=random(100);
for b:=1 to N do
if(a[b]>=50)then
begin
c:=c+1;
d:=d+a[b];
end;
write(d/c);
end.
Пожаловаться
- 02.10.2015 01:12
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы