Найти номер второго по счету элемента массива, равного х

@swag88 · Регистрация: 08.01.2013

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

Найти номер второго по счету элемента массива, равного х. Если в массиве меньше двух таких элементов – вывести об этом сообщение.

@Shtot · 09.01.2013, 21:13

Pascal

var 
  num: array of integer;
  j,i,k,x,t: integer;
begin
  write('Введите количество элементов массива: ');
  readln(j);
  k:=0;
  num:= new integer[j];
  for i:=0 to j-1 do
  begin
    write('Введите ',i+1,' число: ');
    readln(num[i]);
  end;
  write('Введите Х: ');
  readln(x);
  for i:=0 to j-1 do
  begin
    if num[i]=x then
    begin
      k+=1;
      if (k=2) and (t=0) then t:=i+1;
    end;
  end;
  if k>=2 then writeln('Второй по счету элемент массива равный X под номером ',t)
  else writeln('В массиве нету второго элемента, равного X');
end.

@swag88 0 / 0 / 0 Регистрация: 08.01.2013 Сообщений: 21
		1
	Найти номер второго по счету элемента массива, равного х 09.01.2013, 20:05. Показов 2029. Ответов 1 Метки нет (Все метки) Найти номер второго по счету элемента массива, равного х. Если в массиве меньше двух таких элементов – вывести об этом сообщение. 0

	09.01.2013, 21:13

Найти номер второго по счету элемента массива, равного х

Решение