Вопрос по информатике:
Паскаль. ПОЖАЛУЙСТА, ПОМОГИТЕ!
Задан массив целых чисел. Определить, имеются ли в этом массиве три идущих подряд нулевых элемента.
(Желательно с блок-схемой)
Пожаловаться
- 18.05.2018 00:45
- Информатика
- remove_red_eye 2133
- thumb_up 41
Ответы и объяснения 1
Const
N = 13;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
Randomize;
k:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(N div 3);
Write(' ',A[i])
End;
For i:= 1 to N-2 do
if (A[i]=0)and(A[i+1]=0)and(A[i+2]=0) then
k:=1;
WriteLn;
if k=0 then WriteLn('В массиве нет ряда из трёх нулей')
else WriteLn('В массиве есть ряд из трёх нулей')
End.
N = 13;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
Randomize;
k:=0;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i]:=random(N div 3);
Write(' ',A[i])
End;
For i:= 1 to N-2 do
if (A[i]=0)and(A[i+1]=0)and(A[i+2]=0) then
k:=1;
WriteLn;
if k=0 then WriteLn('В массиве нет ряда из трёх нулей')
else WriteLn('В массиве есть ряд из трёх нулей')
End.
Пожаловаться
- 18.05.2018 16:19
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы