сервис вопросов и ответовДан массив, состоящий из 10 элементов. Найти среднее арифметическое таких Ai , для которых выполняется условие: при y<Ai<x, y<x Очень срочно
10-11 класс|
|
надо и блок схему к задаче.
Антошкина17
13 февр. 2017 г., 18:26:16 (7 лет назад)
Mamchenko82
13 февр. 2017 г., 20:31:08 (7 лет назад)
var
a:array [1..10] of integer;
i,x,y,k:integer;
s:real;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(31)-10;
write (a[i],' ');
end;
writeln;
repeat
write ('Y = ');readln(y);
write ('X = ');readln(x);
until y<x;
for i:=1 to 10 do
if (a[i]>y) and (a[i]<x) then begin
s:=s+a[i];
k:=k+1;
end;
if k=0 then writeln ('V massve net el y<a[i]<x ') else begin
s:=s/k;
writeln ('Sr. arifm: ',s:0:4);
end;
readln;
end.
Ответить
Другие вопросы из категории
Люди,может кто сталкивался с такой проблемой не работает интернет через роутер d-link dir-300 связь есть,все индикаторы горят но инет не идет,в то время
как через кабель все отлично(
Помогите пожалуйста!!!!
Сделайте пожалуйста формализацию к задаче:
Группа учащихся из N человек сдавала по 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.
Помогите пожалуйста решить задачки в паскале.
1.В одномерном массиве перенести элемент, стоящий на первом месте в конец массива.
2.вывести на печать номера точек, лежащих в круге радиусом r. Координаты точек заданы массивами (x1,x2,...,x10), (y1,y2,...,y10).
3.В одномерном массиве найти сумму положительных, произведение отрицательных, количество четных элементов.
4.Дан массив, состоящий из 50 элементов, найти предпоследний нечетнный элемент.
1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив из 7
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите среднее арифметическое нечетных элементов массива с нечетными
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
Вы находитесь на странице вопроса "Дан массив, состоящий из 10 элементов. Найти среднее арифметическое таких Ai , для которых выполняется условие: при y<Ai<x, y<x Очень срочно", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.