Дан вектор,требуется посчитать количество элементов вектора,отличных от его последнего элемента.

@Radistka_Kat · Регистрация: 15.09.2010

Помогите,пожалуйста,вопрос жизни и смерти).

@voice8787 · 15.09.2010, 21:10

Pascal

program kat;
uses crt;
var
v:array[1..80] of integer;
i,n,k:integer;
begin
clrscr;
write('Длина вектора='); read(n);
writeln('Введите элементы вектора:');
for i:=1 to n do
begin
write('v[',i,']='); read(v[i]);
end;
for i:=1 to n-1 do
begin
if v[i]<>v[n] then
begin
k:=k+1;
end;
end;
write('Количество элементов вектора,отличных от его последнего элемента=',k);
readln
end.

@Radistka_Kat · 15.09.2010, 21:15 **[ТС]**

Огромное спасибо!

@Radistka_Kat 40 / 40 / 1 Регистрация: 15.09.2010 Сообщений: 73
		1
	Дан вектор,требуется посчитать количество элементов вектора,отличных от его последнего элемента. 15.09.2010, 21:03. Показов 1717. Ответов 2 Метки нет (Все метки) Помогите,пожалуйста,вопрос жизни и смерти). 0

@Radistka_Kat 40 / 40 / 1 Регистрация: 15.09.2010 Сообщений: 73
	15.09.2010, 21:15 [ТС]	3
	Огромное спасибо! 0

Опции темы

Дан вектор,требуется посчитать количество элементов вектора,отличных от его последнего элемента.

Решение