А. А. Медатов, М. К. Абдувохидов, О. А. Маматқулов

var
t:array[1..10] of byte; i,k,s:byte;
begin
for i:=1 to 10 do
begin write(‘t[‘,i,’]=‘); readln(t[i]); end;
k=t[1];
for i:=2 to 10 do if t[i]>k then k:=t[i];
s:=0;
for i:=1 to 10 do if t[i]=k then s:=s1;
writeln(‘Макс. эл. сони =‘,s);
end.


4. Break ва Continue стандарт процедуралари.
Repeat, While, For цикл операторларида иккита стандарт Break ва Continue процедураларидан фойдаланиш мумкин. Break процедураси цикл шартининг бажарилишини кутмаган ҳолда циклдан чиқиш имкониятини беради. Continue процедураси эса аввалги қадам бажарилмаса ҳам янги қадамни бажарилишини таъминлайди. Шартнинг бажарилишига қараб, циклдан чиқиш ёки чиқмасликни билдиради.
Масала. Бир ўлчовли жадвалдаги биринчи манфий элемент ва унинг индексини аниқлаш дастури тузилсин.
program J;
const N=10;
y: boolean= false;
var
m: array[1..N] of integer; i:byte;
begin
writeLn(‘Жадвал элементларини киритинг’);
for i:=1 to N do begin write(‘M[‘,i,’]=’); readLn(M[i]); end;
for i:=1 to N do
begin
if M[i]>=0 then
continue; {m[i] мусбат бўлса цикл бошига, акс ҳолда кейинги сатрга ўтиш}
writeLn(‘биринчи рақам=’);
M[i], ‘Рақам=’, i);
y:=true;
break; {Циклдан чиқиш}
end;
if not Y then writeLn(‘Манфий сонлар йўқ’);
readLn;
end.


5. Масалалар.
5.1. – масала. Махсулотнинг сифат кўрсаткичи a - 0.01 ≤ b ≤ a + 0.01 бўлиши талаб қилинади. Ишлаб чиқарилган n та махсулот ичидан сифатсизлари бўлса уларнинг сонини аниқлаш дастури тузилсин. Агар сифасиз махсулотлар бўлмаса 'Сифатсиз махсулот йўқ' деган жавоб олинсин.
program Sifat;
var b:array[byte]of real; i,n,s:integer; a:real; p:boolean;
begin
p:=false; s:=0;
write('Maxsulotlar soni n=');
readln(n);
write('Maxsulotning standart o`lchovi a=');
readln(a);
for i:=1 to n do
begin
write(i,'-chi maxsulot b[',i,']=');
readln(b[i]);
if (b[i]<(a-0.01)) or (b[i]>(a+0.01)) then
begin
p:=true;
s:=s+1;
end
end;
if p then writeln('Sifatsiz maxsulotlar soni ',s,’ ta’)
else writeln('Sifatsiz maxsulotlar yo`q')
end.