Вектор

@Shark19 · Регистрация: 29.06.2010

Выяснить, имеются ли в заданном векторе A(N) два подряд идущих нулевых элемента

Jabbson · 29.06.2010, 22:51

Pascal

program chis;
uses crt;
 
const x=100;
 
var
mas: array [1..x] of integer;
i,k: integer;
 
 
BEGIN
clrscr;
k:=0;
randomize;
 
for i:=1 to x do mas[i]:=random(3);
 
for i:=1 to x-1 do
 begin
  if (mas[i]=0) and (mas[i+1]=0) then
    begin
     writeln('Элемент # ',i,' и элемент # ',i+1,' равны нулю');
     inc(k);
    end;
 end;
 
 if k=0 then writeln ('В последовательности нет двух подряд идущих нулевых члена.')
 else writeln('Найдено ',k);
readkey;
END.

@Shark19 · 30.06.2010, 16:55 **[ТС]**

Огромнейшее спасибо!

@Shark19 0 / 0 / 0 Регистрация: 29.06.2010 Сообщений: 24
		1
	Вектор 29.06.2010, 21:51. Просмотров 1567. Ответов 2 Метки нет (Все метки) Выяснить, имеются ли в заданном векторе A(N) два подряд идущих нулевых элемента 0

@Shark19 0 / 0 / 0 Регистрация: 29.06.2010 Сообщений: 24
	30.06.2010, 16:55 [ТС]	3
	Огромнейшее спасибо! 0

Опции темы

Вектор

Решение