Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 1
Регистрация: 17.12.2012
Сообщений: 83
1

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

26.02.2015, 16:06. Просмотров 897. Ответов 3
Метки нет (Все метки)

Доброго времени суток, форумчане! Столкнулся с проблемой в коде программы, задание такое:
Дан массив X(N).Найти среднее арифметическое элементов, предшествующих первому нулевому элементу этого массива. Если нулевого элемента нет, выдать соответствующее сообщение.
Программа написана вроде бы правильно, ругается на 4-ю строчку, "sra" чем то не нравится. В чем ошибка?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var;
X, N; integer;
begin
sra=0;
fl=0;
for i:=1 to n do
if(x[i]=0) then begin
sra;=(x[i-1]+x[i-2]):2;
fl=1;
break;
end;
if(fl=1) then writeln('sred-arn=',sra)
else writeln('Нет нулевого элемента');
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.02.2015, 16:06
Ответы с готовыми решениями:

Найти произведение и среднее арифметическое элементов массива,предшествующих первому нулевому элементу
Дан массив вещественных чисел.Найти произведение и среднее арифметическое элементов...

Найти сумму элементов массива, предшествующих первому отрицательному элементу
Дан массив Х(n). Найти сумму элементов массива, предшествующих первому отрицательному элементу....

Найти сумму элементов, предшествующих первому положительному элементу, и количество таких элементов
В одномерном массиве вещественных чисел найти сумму элементов, предшествующих первому...

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

3
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30768 / 20098 / 7853
Регистрация: 22.10.2011
Сообщений: 34,919
Записей в блоге: 6
26.02.2015, 16:09 2
Тем, что эта переменная не описана. Вот X и N - описаны, а остальные - нет. И потом, "=" это в других языках, в Паскале ":="
0
1 / 1 / 1
Регистрация: 17.12.2012
Сообщений: 83
26.02.2015, 16:14  [ТС] 3
Цитата Сообщение от volvo Посмотреть сообщение
Тем, что эта переменная не описана. Вот X и N - описаны, а остальные - нет. И потом, "=" это в других языках, в Паскале ":="
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var;
X, N, sra, fl; integer;
begin
sra:=0;
fl:=0;
for i:=1 to n do
if(x[i]:=0) then begin
sra:=(x[i-1]+x[i-2]):2;
fl:=1;
break;
end;
if(fl:=1) then writeln('sred-arn:=',sra)
else writeln('Нет нулевого элемента');
end.
Исправил, но все равно программа не работает. Где то опять напортачил?
0
1642 / 1071 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
26.02.2015, 23:45 4
Цитата Сообщение от Prapor48 Посмотреть сообщение
sra:=(x[i-1]+x[i-2]):2;
":" перед двойкой зачем?

Добавлено через 54 секунды
Цитата Сообщение от Prapor48 Посмотреть сообщение
if(fl:=1)
присвоивание, как и говорили выше, это ":=" , а сравнение "="

Добавлено через 53 секунды
Лучше бы почитали какой нибудь учебник, а то Вы тыкаетесь не знамо куда.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.02.2015, 23:45

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

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

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

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

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


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

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

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