75 , информатика, 9 класс, кто не знает, просьба не !
1) заполнить массив из 30 целых чисел случайными числами в интервале от [0; 200) и подсчитать количество нечетных элементов!
2) заполнить массив из 20 целых чисел случайными числами в интервале от [20; 60) и вычислить сумму чисел кратных 5 и произведение чисел меньших 45

если переменная нужна целая то так:

x: =random(b-a)+a

если можно дробную, то так

x: =(b-a)*random+a

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

сначала взять кирпич-взять цемент- налить уемент- положить на цемент кирпич. и т.к