Реферат: 10 задач с решениями программированием на Паскале

end;

procedure moped(m:integer;var x:m);

var i,k,n:integer;

begin k:=0;n:=0;

for i:=1 to m do

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

else begin

if x[i-1]=0 then

if k>n then n:=k;

k:=0;end;

if k>n then

writeln('самая большая последовательность нулей состовляет ',k)

else

writeln('самая большая последовательность нулей состовляет ',n);

end;

begin

vvod(20,A); moped(20,A);

end.

Задача 5.

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

Программа:

program S2_Z5;

type m=array[1..100] of integer; mas=array[1..10] of m;

var A:mas;

procedure vvod(kn:integer;x:mas);

var y:m;i,t,k,min,k0:integer;

begin

for k:=1 to kn do begin

k0:=0; min:=1000;

writeln('введите кол-во эл-ов в ',k,'-ом массиве');read (t);