Регистрация
Лиза13061
21.04.2021 07:22
Информатика
Есть ответ 👍

Дан массив из n элементов. большенство элментов массива не равны нулю. найти максимальное колличество подряд идущих нулевых элементов. гарантируется что в массиве есть хотябы одна пара рядом стояих нулевых элементов. "решение должно представляться на алгоритмическом языке или любом языке программирования"

102
398
Посмотреть ответы 3

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

HanjiZ
HanjiZ
4,5(1 оценок)

const n=10;

var

a: array[1..n] of integer;

i,k,max: integer;

begin

for i: =1 to n do

begin

a[i]: =random(3);

write(a[i]: 3);

end;

writeln;

k: =0; max: =0;

for i: =1 to n do

begin

if a[i] = 0 then k: =k+1

else begin

if k> max then max: =k;

k: =0;

end;

end;

if k> max then max: =k;

writeln(max);

end.

пример:

0 1 0 0 0 1 0 1 1 2

3

Artur242
Artur242
4,4(52 оценок)
Язык паскаль любой хоть фри паскаль program gg; var a: array[1..100] of integer; b: array[1..100] of integer; i,s,c: integer; begin while i < 10 do begin i+=1; a[i]: =random(3); write(a[i]: 3); end; i: =0; while i < 10 do begin i+=1; if a[i] = 0 then s+=1; if ((a[i] < > 0) and (s > 0)) or (i = 10) then begin c+=1; b[c]: =s; s: =0; end; i: =0; writeln(); while b[i+1] > 0 do begin write(b[i]: 3); end; end; end.
alekseysidorov
alekseysidorov
4,7(45 оценок)
Const nx = 20; var a: array[1..nx]of integer; i,n: integer; sum: double; begin write('введите число элементов'); readln(n); for i: =1 to n do begin a[i]: = random(100)-50; write(a[i]: 5); sum: = sum + i * a[i]; end; writeln; write('sum = ', sum); end.

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