Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Pascal abc Куда добавить While

Demon Demon Ученик (98), на голосовании 10 месяцев назад
Выясните, имеются ли в заданном векторе A(N) два подряд идущих нулевых элемента. Куда добавить While
Голосование за лучший ответ
Ilya Hämäläinen Мастер (1276) 11 месяцев назад
 const k = 100; 
var m: array[1..k] of integer;
i, kol: integer;
begin
randomize;
kol := 0;
for i := 1 to k do
begin
m[i] := random(3) - 2;
write(m[i]:2);
end;
for i := 1 to 98 do
begin
if (m[i] = 0) and (m[i+1] = 0) then
kol := kol + 1;
end;
writeln;
writeln('Два подряд идущих нулевых элемента: ', kol, ' ');
readln;
end.
made in ohio!
Demon DemonУченик (98) 11 месяцев назад
Куда while вставить?
Ilya Hämäläinen Мастер (1276) Demon Demon,
 const k = 100; 
var m: array[1..k] of integer; 
    i, kol: integer; 
begin 
  randomize; 
  kol := 0; 
  i := 1; 
  while kol < 10 do // вот твой святой while
  begin 
    m[i] := random(3) - 2; 
    write(m[i]:2); 
    if m[i] = 0 then 
      kol := kol + 1; 
    i := i + 1; 
  end; 
  writeln; 
  writeln('Два подряд идущих нулевых элемента: ', kol, ' '); 
  readln; 
end. 
Demon DemonУченик (98) 11 месяцев назад
Спасибо
Demon DemonУченик (98) 11 месяцев назад
Он почему то бесконечно цыфры выводит
Похожие вопросы