сервис вопросов и ответовВ даном массиве з 20 действительных чисел найти произведение элементов,которые меньше за среднее арифметическое
10-11 класс|
|
Annappp
07 мая 2015 г., 5:48:56 (8 лет назад)
Sonyavi
07 мая 2015 г., 7:31:15 (8 лет назад)
Program a_86betiri;
uses crt;
const n=20;
var
a:array[1..n] of real;
sum, mt: real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
sum:=0;
mt:=1;
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
sum:=sum+a[i];
end;
writeln('Элементы массива:');
for i:=1 to n do
begin
if a[i]<(sum/n) then
mt:=mt*a[i];
write (a[i]:7:2);
end;
writeln();
writeln('Произведение элементов, меньших, чем среднее арифметическое: ',mt);
end.
Ответить
Другие вопросы из категории
Объясните по подробнее как решать такие задания 1)Для какого из указанных значений числа X истинно высказывание
((X < 5)→(X < 3)) Ù ((X < 2)→(X < 1))
1) 1 2) 2 3) 3 4) 4
2)Для какого имени истинно высказывание:
¬ (Первая буква имени гласная → Четвертая буква имени согласная)?
1) ЕЛЕНА 2) ВАДИМ 3) АНТОН 4) ФЕДОР
Читайте также
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
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.
Сделайте пожалуйста блок-схему или код в small basic. Дан массив из 20 целых чисел. В массиве хранятся результаты соревнований по спортивной стрельбе.
Один элемент массива соответствует количеству очков, набранных одним участником соревнований, и имеет значение от 0 до 30 включительно. Необходимо разработать программу, которая по данным массива вычисляет максимальное количество очков среди участников соревнований, и количество участников набравшее зачётное количество очков. Зачётное количество очков 18. Гарантируется, что хотя бы один участник соревнований набрал зачётное количество очков.
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Пожалуйста сделайте в Паскале задание лёгкое, но постоянно ошибка:
"Дан массив из 5 чисел, найти количество элементов которые равны минимуму."
Вы находитесь на странице вопроса "В даном массиве з 20 действительных чисел найти произведение элементов,которые меньше за среднее арифметическое", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.