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

@Реал · Регистрация: 10.04.2012

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

1.дана целочисленная таблица А[1:100]. проверьте, есть ли в ней элементы, равные нулю. Если есть, найдите номер первого из них, т.е. наименьший i, при котором А[i]=0

@ermolay · 04.10.2012, 10:08

Pascal

const
  n=100;
var
  a: array[1..n] of integer;
  i,j: integer;
  boo: boolean;
begin
  randomize;
  boo:=false;
  writeln('Массив:');
  for i:=1 to n do
  begin
    a[i]:=random(10);
    write(a[i],' ');
    if (a[i]=0)and(boo=false) then
    begin
      j:=i;
      boo:=true;
    end;
  end;
  writeln;
  writeln('Первый нулевой элемент на ',j,'-й позиции');
  readln;
end.

@Реал 2 / 2 / 0 Регистрация: 10.04.2012 Сообщений: 68
		1
	Найти номер первого из нулевых элементов массива 03.10.2012, 19:18. Показов 2336. Ответов 1 Метки нет (Все метки) 1.дана целочисленная таблица А[1:100]. проверьте, есть ли в ней элементы, равные нулю. Если есть, найдите номер первого из них, т.е. наименьший i, при котором А[i]=0 0

	04.10.2012, 10:08

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

Решение