Найдите порядковый номер первого элемента массива, равного 0

@AntonBatman · Регистрация: 19.01.2015

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

Дан массив из 10 элементов заполненный с клавиатуры, найдите порядковый номер первого элемента равного 0.

@ZX Spectrum-128 · 22.01.2015, 11:56

(С) Найдено в Сети.

Pascal

uses crt;
const N=10;
var
  a : array [1..N] of integer;
  i, k: integer;
begin
  writeln('Ввод элементов массива: ');
  for i:= 1 to N do
  begin
    write('Введите ',i,' элемент массива: ');
    readln(a[i]);
  end;
  ClrScr;
  k:=0;
  for i:= 1 to N do
  begin
    if (a[i]=0) and (k=0) then k:=i;
    write(a[i]:4);
  end;
  writeln;
  if k=0 then writeln('Нет нулевого элемента.')
         else writeln('Номер нулевого элемента массива: ',k);
  readln;
  end.

@AntonBatman 0 / 0 / 0 Регистрация: 19.01.2015 Сообщений: 9
		1
	Найдите порядковый номер первого элемента массива, равного 0 22.01.2015, 11:33. Показов 2718. Ответов 1 Метки нет (Все метки) Дан массив из 10 элементов заполненный с клавиатуры, найдите порядковый номер первого элемента равного 0. 0

	22.01.2015, 11:56

Опции темы

Найдите порядковый номер первого элемента массива, равного 0

Решение