Дан одномерный массив целых чисел размерностью 20. Определите количество положительных груп в этом массиве. (Группой называется последовательность, состоящая из 2-х и более положительных чисел, находящихся рядом).
Я очень долго думал над этой задачей, но с логикой у меня туго. Вот то, что я успел сделать:
Program T_17_9;
Const
Ebt=10;
Type
Nah=array[1..Ebt]of real;
Var
m:Nah;
i,group:byte;
Begin
For i:=1 To Ebt Do
begin
writeln('Vvedite element massiva pod nomerom: ',i);
readln(m[i])
end;
group:=0;
for i:=1 to Ebt do
If (m[i]>0) and (m[i+1]>0) Then
begin
group:=group+1;
end;
writeln('koli4estvi polozitelnih grup ravno: ',group);
End.
MeatCrash, имена переменным попроще давай...
Вот так получше будет:
Const
n = 10;
Type
TA = array[1 .. n] of real;
var
m: TA;
i, group: byte;
Begin
for i := 1 To n do begin
writeln('Vvedite element massiva pod nomerom: ', i);
readln(m[i])
end;
group := 0;
i := 1;
while i < n do begin
if (m[i] > 0) and (m[i+1] > 0) then begin
inc(group);
while (i <= n) and (m[i] > 0) do inc(i); { <--- Ты упустил этот момент... }
end
else inc(i);
end;
writeln('koli4estvi polozitelnih grup ravno: ', group);
End.
Program T_17_9;
Const
Ebt=10;
Type
Nah=array[1..Ebt]of real;
Var
m:Nah;
i,group:byte;
fl: boolean;
Begin
writeln('Vvedite elementy massiva ');
For i:=1 To Ebt Do
read(m[i]);
readln;
group:=0; fl:=false;
for i:=1 to Ebt-1 do
If (m[i]>0) and (m[i+1]>0) Then fl:=true
else
if fl and (m[i+1]<=0) then begin inc(group); fl:=false end;
if fl then inc(group);
writeln('koli4estvi polozitelnih grup ravno: ',group);
readln;
End.
Всем спасибо и ещё раз извиняюсь за повторение темы. Был не прав, исправлюсь.