Дан вектор..., задача на массивы Опции

[kvadrat]

Вот условие:


Правильно ли я решил задачу?

program wersagfwqe;
uses crt;
var d:array[1..6] of integer;z,i:integer;
begin
clrscr;
writeln('vvedite elementi vektora');
for i:=1 to 6 do
begin
readln(d[i]);
end;
z:=d[3]+d[4]+d[5]+d[6];
writeln('summa=',z);
end.

Ведь вектор состоит из 6 чисел, почему тогда дали отрезок от 3 до 7? мб тут какойто подвох?

[volvo]

Разницу между длиной вектора и интервалом, в котором находятся значения его элементов, понимаешь? Какая разница, сколько элементов в векторе? Значение (а не индекс, как тебе кажется) любого из них может попасть в интервал 3 .. 7, а может не попасть...

Соответственно, задача решена неверно... Начиная с того, integer - это не вещественный...

Сообщение отредактировано: volvo - 17.05.2008 14:49

[kvadrat]

Вещественый это какой?
Вот глядите перерешал, правильно?

program derdsfgsd;
uses crt;
var d:array[1..6] of real;z,i:integer;
begin
clrscr;
z:=0;
writeln('vvedite elementi vektora');
for i:=1 to 6 do
begin
readln(d[i]);
if (d[i]>=3) and (d[i]<=7) then z:=z+d[i] 
end;
writeln('summa=',z);
end.

[volvo]

А ты попробуй откомпилировать... Вот когда исправишь ошибку, тогда будет правильно...

[kvadrat]

У меня всё компилировалось:


Но я узнал что вещественные это Real, Single, Double, Extended, Comp
поэтому выходит так:

program wersagfwqe;
uses crt;
var d:array[1..6] of real;z:real;i:integer;
begin
clrscr;
z:=0;
writeln('vvedite elementi vektora');
for i:=1 to 6 do
begin
readln(d[i]);
if (d[i]>=3) and (d[i]<=7) then z:=z+d[i]
end;
writeln('summa=',z:2:2);
end. 

[volvo]

У меня всё компилировалось:

Ты сказки-то в другом месте рассказывай, ладно? Тип Integer с типом Real по присваиванию несовместим, то есть, запихать Real := Integer можно, а вот обратно: Integer := Real - нельзя... Это не вызывает вопросов? А теперь расскажи, переменной какого типа и что ты пытаешься (в смысле, пытался, в посте №3) присвоить здесь:

... then z:=z+d[i]

Это не то же самое Integer := Real?

Сообщение отредактировано: volvo - 17.05.2008 16:28

[kvadrat]

У меня тогда было

var d:array[1..6] of integer;z,i:integer;