сервис вопросов и ответовНужно найти количество элементов массива, больших среднего арифметического всех ее элементов. Всё работает, только вот то самое количество все время
10-11 класс|
|
получается равно 31-му. В чем ошибка?
У меня в программе:
Sterva25
12 янв. 2015 г., 10:43:32 (9 лет назад)
NastyaCenT
12 янв. 2015 г., 11:52:06 (9 лет назад)
uses crt;
var i,j,n,k,p:integer; a:array[1..100,1..100] of integer; sr:real;
begin
clrscr;
randomize;
write('dlina massiva ');readln(n);
for i:=1 to n do begin
for j:=1 to n do
a[i,j]:=random(10);
end;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
for i:=1 to n do begin
for j:=1 to n do
k:=k+a[i,j];
end;
sr:=k/sqr(n);
writeln;
write('sr = ',sr:2);
for i:=1 to n do begin
for j:=1 to n do
if a[i,j]>sr then inc(p);
end;
writeln;
writeln('kolichestvo ',p);
readln
end.
Ответить
Другие вопросы из категории
У портного было много пуговиц. Он пришил на один костюм 10 штук, а потом на каждый следующий пришивал в 2,3,4...раза больше, чем на предыдущий. Но пуговиц
у него хватило лишь на 9 таких костюмов. Сколько всего было пуговиц у данного портного? Составить блок-схему алгоритма.
Читайте также
Задан одномерный массив размером 40. Определите количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
дан массив целых чисел,состоящий из 30 элементов опишите на русском языке или одним из языков программирования,алгоритм нахождения количеств элемента
массива,значение которых больше среднего арифметического всех его элементов
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
Ввести одномерный массив Т[20] с клавиатуры, вывести на экран в строку. Отдельно вывести элементы массива большее среднего арифметического.
Определить их колличество
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Вы находитесь на странице вопроса "Нужно найти количество элементов массива, больших среднего арифметического всех ее элементов. Всё работает, только вот то самое количество все время", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.