Берілген блок-сызбадағы алгоритмніңпсевдокоды мен программасын жазыңыз. Информатика бжб 4токсан ​

если массив заполняется случайными числами , то

var

 mas: array[0..31]of word;

 a, b, c: integer;

begin

 b := 10000;

 c := 10000;

 for a := 0 to 29 do

 begin

   mas[a] := random(9999) + 1;

   if mas[a] mod 2 = 0 then begin if mas[a] < b then b := mas[a]; mas[30] := mas[30] + 1; end;

   if mas[a] mod 2 = 1 then begin if mas[a] < c then c := mas[a]; mas[31] := mas[31] + 1; end;

 end;

 if mas[30] = 0 then b := 0;

 if mas[31] = 0 then c := 0;

 for a := 0 to 29 do begin if mas[a] > c + b then mas[a] := mas[a] - c - b; writeln(mas[a]); end

end.

если массив заполняется вручную , то

label o;

var

 mas: array[0..31]of word;

 a, b, c: integer;

begin

 b := 10000;

 c := 10000;

 for a := 0 to 29 do

 begin

   o:

   read(mas[a]);

   if (mas[a] < 1)or(mas[a] > 10000) then goto o;

   if mas[a] mod 2 = 0 then begin if mas[a] < b then b := mas[a]; mas[30] := mas[30] + 1; end;

   if mas[a] mod 2 = 1 then begin if mas[a] < c then c := mas[a]; mas[31] := mas[31] + 1; end;

 end;

 if mas[30] = 0 then b := 0;

 if mas[31] = 0 then c := 0;

 for a := 0 to 29 do begin if mas[a] > c + b then mas[a] := mas[a] - c - b; writeln(mas[a]); end

end.

1)var

chislo,max:integer ;

begin  

Writeln('Введите числа');  

max:=0;  

Read(chislo);

while chislo <> 0 do  

begin  

If(chislo>max) then

max:=chislo;  

Read(chislo);

end;

Writeln('Наибольшие число из веденных является ',max);  

end.

2)

var  

chislo,di,k:integer;  

begin  

Writeln('Введите число');Readln(chislo);

for di:= 1 to chislo do  

begin

if((chislo mod di) = 0 ) then  

begin  

Writeln('Число делится на ',di);

k:=k+1;

end;  

end;  

if(k>2) then

Writeln('Число',chislo,' не простое');

if(k=2) then  

Writeln('Число ',chislo,' простое');

end.

Объяснение: