Автор: Наталья

Наталья — Thu, 07 Feb 2019 03:47:48 +0000

Или так:

program Minmax28.
var a,k,ki,kmax,j,N:integer;
begin
 ki:=1;
 write('Количество чисел в наборе N: ');
 read(N);
 write('Введите набор ',N,' чисел:');
 for var i:=1 to N do
  begin
   read(a);
   if a=1 then inc(k) else
   begin
    if k>=kmax then
    begin
    kmax:=k;
    j:=ki;
   end;
    ki:=i+1;
    k:=0;
   end; 
  end;
   if k>=kmax then
   kmax:=k;
   if kmax=0 then j:=0 else
   j:=ki;
   Writeln('Номер начального элемента: ',j,'  Количество элементов: ',kmax);
end.

program Minmax28.

var a,k,ki,kmax,j,N:integer;

begin

ki:=1;

write('Количество чисел в наборе N: ');

read(N);

write('Введите набор ',N,' чисел:');

for var i:=1 to N do

begin

read(a);

if a=1 then inc(k) else

begin

if k>=kmax then

begin

kmax:=k;

j:=ki;

end;

ki:=i+1;

k:=0;

end;

if k>=kmax then

kmax:=k;

if kmax=0 then j:=0 else

j:=ki;

Writeln('Номер начального элемента: ',j,' Количество элементов: ',kmax);

end.

Комментарии: Решаем задачи Абрамян на Паскале. Minmax28

Автор: Наталья