Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 19.05.2010
Сообщений: 8
1

Найти среднеарифметическое элементов массива, предшествующих первому элементу, большему 50

22.05.2010, 06:09. Просмотров 1139. Ответов 1
Метки нет (Все метки)


Найти среднеарифметическое элементов вещественного массива А1,А2...Аn предшествующих первому элементу, большему 50.
n-длина массива
А1,А2...Аn -массив.
Не получается написать программу, помогите чем сможете.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2010, 06:09
Ответы с готовыми решениями:

Найти среднее арифметическое элементов предшествующих первому отрицательному элементу
найти среднее арифмитическое элементов предшествующих первому отрицательному элементу. чёт у меня...

в массиве х(10) найти среднее арифметическое предшествующих первому положительному элементу. только массив выводитБ больше ничё не делает
в массиве х(10) найти среднее арифметическое предшествующих первому положительному элементу. ...

Сумма 1-го элемента массива и элементов массива, начиная с четвёртого, которые меньше или равны первому элементу
Что здесь высчитывается и какой ответ? var k,m: integer; dat: array of integer; begin dat :=...

Написать алгоритм вычисления суммы положительных элементов, предшествующих максимальному элементу массива
Привет, такая задача, выручите плиз: Задан массив, содержащий 25 целых чисел. Написать алгоритм...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
Модератор
63223 / 46978 / 32379
Регистрация: 18.05.2008
Сообщений: 113,863
22.05.2010, 06:34 2
Лучший ответ Сообщение было отмечено Adler54 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
const max=100;
var a:array[1..max] of real;
    n,i,j:byte;
    sr:real;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=60*random;
  write(a[i]:5:1);
 end;
writeln;
writeln;
i:=1;{начало массива}
j:=0;{индекс искомого элемента}
while(i<=n)and(j=0)do{пока не конец и элемент не больше 50}
if a[i]>50 then j:=i{идем и ищем, нашли, запомнили}
else i:=i+1;{иначе вперед}
if j=0 then write('Элементов больше 50 в массиве нет')
else if j=1 then write('Элемент больше 50 первый, предшествующих нет')
else
 begin
  writeln('Первый элемент больше 50=',a[j]:0:1,' его индекс=',j);
  sr:=0;
  for i:=1 to j-1 do sr:=sr+a[i];{}
  sr:=sr/(j-1);{}
  write('Среднее до первого элемента больше 50=',sr:0:1);
 end;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2010, 06:34

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

В каждой строке матрицы найти произведение элементов предшествующих минимальному элементу строки
помогите пожалуйста решить, немого я написал, а вот дальше проблемка..))) Ввести матрицу A(N,M) ....

Найти минимальное число, присвоить его значение первому элементу массива, а вместо минимального числа записать 10
Найти минимальное число, присвоить его значение первому элементу массива, а вместо минимального...

Сумма элементов, предшествующих последнему отрицательному элементу i-й строки
Пусть дано натуральное число п и целочисленная квадратная матрица порядка п. Получите b1 , b2 ,...

Найти среднее арифметическое элементов, предшествующих первому положительному элементу массива
Найти среднее арифметическое значение элементов массива х(х1,х2...х10), предшествующих первому...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.