Алгоритмы и программы. Афанасьева Т. В - 123 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

123
var
a:array[1..10] of integer;
n1,n2,i,k,p:integer;
begin
writeln(' В одномерном массиве найти максимальную ');
writeln(' группу , содержащую нули ');
writeln(' Введите массив из 10 элементов через пробелы');
k:=0;
n1:=0;
n2:=0;
p:=1;
for i:=1 to 10 do
begin
read(a[i]);
if a[i]=0 then
begin
if k=0 then
n1:=i;
k:=k+1;
end
else
begin
if k>p then
begin
p:=k;
n2:=n1;
end;
k:=0;
end;
end;
if n2=0 then
write('Такой группы нет')
else
writeln('Начало максим группы: ',n2);
writeln('Кол–во элементов в максим группе: ',p);
readln;
readln;
end.
Пример 7.15. Записать в файл 10 элементов одномерного массива в
следующем порядке:
– пять элементов массива, начиная с десятой позиции;
– пять элементов,
начиная с первой позиции массива.

Страницы