Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Паскаль!!!

Паскаль!!! - вопрос №157106

В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов

Артём Архипов
05.12.11
Учеба и наука / Информатика
1 ответ

Лучший ответ по мнению автора

program nul_el_mas;

uses crt;

    var

    a,b:array [1..10] of integer;

     n,i,j,k:integer; 

begin

   clrscr; 

      writeln ('vvedite razmernost massiva'); readln (n); 

 

for i:=1 to n do

  begin 

writeln ('vvedite ',i,'-y elementy massiva'); readln(a[i]);

 end;

j:=0;

 

  for i:=1 to n do

   begin

        if a[i]=0 then

           begin

          k:=i; j:=j+1; 

               b[j]:=k;

            end;

   end;

 

        for i:=1 to j do write (' ',b[i]);

               readkey;  

  end.
06.12.11
Лучший ответ по мнению автора

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее