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

@Prapor48 · Регистрация: 17.12.2012

Доброго времени суток, форумчане! Столкнулся с проблемой в коде программы, задание такое:
Дан массив X(N).Найти среднее арифметическое элементов, предшествующих первому нулевому элементу этого массива. Если нулевого элемента нет, выдать соответствующее сообщение.
Программа написана вроде бы правильно, ругается на 4-ю строчку, "sra" чем то не нравится. В чем ошибка?

Pascal

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.

@volvo · 26.02.2015, 16:09

Тем, что эта переменная не описана. Вот X и N - описаны, а остальные - нет. И потом, "=" это в других языках, в Паскале ":="

@Prapor48 · 26.02.2015, 16:14 **[ТС]**

Сообщение от volvo

Тем, что эта переменная не описана. Вот X и N - описаны, а остальные - нет. И потом, "=" это в других языках, в Паскале ":="

Pascal

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.

Исправил, но все равно программа не работает. Где то опять напортачил?

@APALoff · 26.02.2015, 23:45

Сообщение от Prapor48

sra:=(x[i-1]+x[i-2]):2;

":" перед двойкой зачем?

Добавлено через 54 секунды

Сообщение от Prapor48

if(fl:=1)

присвоивание, как и говорили выше, это ":=" , а сравнение "="

Добавлено через 53 секунды
Лучше бы почитали какой нибудь учебник, а то Вы тыкаетесь не знамо куда.

@volvo Супер-модератор 30768 / 20098 / 7853 Регистрация: 22.10.2011 Сообщений: 34,919 Записей в блоге: 6
	26.02.2015, 16:09	2
	Тем, что эта переменная не описана. Вот X и N - описаны, а остальные - нет. И потом, "=" это в других языках, в Паскале ":=" 0

@APALoff 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

Опции темы