Question

Нужно ответы 4 5 6 помогите пж пишите нормально понятно срочнооо

Answer 1

1.
Program TuKpa6;vara:array[1..25] of integer;i,sum1,sum2,sum3:integer;BEGINsum1:=0;sum2:=0;randomize;for i:=1 to 25 do  begin    a[i]:=random(20,84);    writeln('a[',i,']=',a[i]);    if i mod 3 = 0 then      begin        sum1:=sum1+1;      end;    if i mod 10 = 0 then      begin        sum2:=sum2+1;      end;    if odd(i) then      begin        sum3:=sum3+1;      end;  end;  writeln('kpaTHbIe 3em = ',sum1,' IIITyk');  writeln('kpaTHbIe 10u = ',sum2,' IIITyk');  writeln('He4eTHbIx = ',sum3,' IIITyk');END.

2.
Program TuKpa6;vara:array[1..15] of integer;i,min:integer;BEGINwriteln('BBeguTe 15 eJleMeHToB');for i:=1 to 15 do  begin    readln(a[i]);  end;min:=1;for i:=1 to 15 do  begin    if a[i]<a[min] then      begin        min:=i;        end;  end;writeln('caMbiII MeHbIIIuII u3 15');writeln('a[',min,']=',a[min]);END.

3.
Program TuKpa6;vara:array[1..7] of integer;i,p:integer;BEGINp:=1;for i:=1 to 7 do  begin    a[i]:=i;    if not (odd(i)) then      begin        p:=p*a[i];      end;  end;writeln('npou3BegeHue 4eTHbix = ',p);END.