Регистрация
erra1337
23.01.2020 11:19
Информатика
Есть ответ 👍

Здравствуйте написать задачу на PascalABC.NET Задача. В последовательности, состоящей из 0 и 1, подсчитать максимальное
количество подряд стоящих 1. Хранить элементы последовательности в
памяти нет необходимости.

241
476
Посмотреть ответы 2

Ответы на вопрос:

Begkakaaa
Begkakaaa
4,5(10 оценок)

program project215;

uses

 crt;

var a:array[1..100] of integer;

   i,j,k:integer;

begin

 randomize;

 j:=0;

 k:=0;

 for i:=1 to 100 do

 begin

   a[i]:=random(100)-50;

   writeln(a[i]);

   if i mod 10=0 then writeln;

   if a[i]>0 then j:=j+1

   else

   begin

  if k<j then k:=j;

     j:=0;

   end;

 end;

write('Максимальная последовательность положительных элементов: ',k);

 Readln;

end.

Объяснение:

nastya4030
nastya4030
4,8(34 оценок)
Чтобы    доказать или опровергнуть логическое равенство надо  построить таблицу истинности

Популярно: Информатика