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

@TVV27 · Регистрация: 09.10.2012

Студворк — интернет-сервис помощи студентам

2.Дан массив А(10). Определить количество элементов, отличных от последнего элемента.

@Roman1295 · 09.10.2012, 14:02

Массив дан одномерный или нет?

@TVV27 · 09.10.2012, 16:08 **[ТС]**

одномерный

@Kinita · 09.10.2012, 19:23

Pascal

program massiv;
var
  a: array [1..10] of char;
  i,k:integer;
begin
writeln('Введите 10 символов');
for i:=1 to 10 do
  begin
  read(a[i]);
  end;
for i:=1 to 9 do
  begin 
  if a[i]<>a[10] then k:=k+1 
  end;
writeln('В массиве отличных от последнего элемента ',k,' элементов');
end.

@Roman1295 · 09.10.2012, 21:31

В массивах не силен, но программа вроде бы работает. Написал свой вариант c выводом рандомных чисел.

Pascal

var
  mas: array[1..10] of integer;
  k,i:integer;
 begin
  for i:=1 to 10 do 
  begin
  mas[i]:=random(50);
  write(' ', mas[i]);
  write;
  end;
     for i:=1 to 9 do 
   if mas[i] <> mas[10] then k:=k+1;
   writeln;
  writeln(' ', 'Количество элементов, отличных от последнего: ',k);
 end.

@TVV27 · 10.10.2012, 14:43 **[ТС]**

Спасибо

@TVV27 0 / 0 / 0 Регистрация: 09.10.2012 Сообщений: 4
		1
	Дан массив. Определить количество элементов, отличных от последнего элемента. 09.10.2012, 13:58. Показов 12692. Ответов 5 Метки нет (Все метки) 2.Дан массив А(10). Определить количество элементов, отличных от последнего элемента. 0

@Roman1295 8 / 8 / 9 Регистрация: 01.10.2012 Сообщений: 100
	09.10.2012, 14:02	2
	Массив дан одномерный или нет? 0

@TVV27 0 / 0 / 0 Регистрация: 09.10.2012 Сообщений: 4
	09.10.2012, 16:08 [ТС]	3
	одномерный 0

@TVV27 0 / 0 / 0 Регистрация: 09.10.2012 Сообщений: 4
	10.10.2012, 14:43 [ТС]	6
	Спасибо 0

Опции темы