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

UptoLike

ВУЗ: 

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

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

Рубрика: 

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

Страницы