Массивы!!

[NitriNKa]

Решите срочно, пожалуйста!! Массив А(30) сформирован случайным образом. Найти в нём количество элементов, меньше среднего арифметического положительных элементов этого массива

[DM_bite]

program Mass;
const n=30;
var a:array [0..n] of integer;
    i,k,sr,sum,l: integer;
begin
 randomize;
  for i:= 0 to n do
   begin
    a[i]:= random(n);
    end;
    k:=0;
    sum:= 0;
    for i:= 0 to n do
     begin
     if a[i]>0 then
     begin
     sum:= sum + k;
     k:= k+1;
     end;
     end;
     sr:= sum div k;
     l:=0;
     for i:= 0 to n do
     begin
     if a[i]<sr then l:= l+1;
     end;
     WriteLn(l);
     ReadLn;
    end.

Вроде так.

[NitriNKa]

а можно ещё одну, если не трудно ??? В матрице t(7,8) найти среднее арифметическое элементов, расположенных в чётных столбцах.

[alex_fcsm]

Сообщение от NitriNKa

Решите срочно, пожалуйста!! Массив А(30) сформирован случайным образом. Найти в нём количество элементов, меньше среднего арифметического положительных элементов этого массива

uses crt;
const n=30;
var a:array[1..n] of integer;
    i,cl:integer;
    mo:real;

    
begin
cl:=0;mo:=0;
for i:=1 to n do
 begin
 a[i]:=random(100)-random(100);
 if a[i]>0 then begin
                  inc(cl);
                  mo:=mo+a[i];
                 end;
 end;
 mo:=mo/cl;
 cl:=0;
 for i:=1 to n do
  if (a[i]<mo) and (a[i]>0) then inc(cl);
 writeln(cl);
end.

uses crt;
const n=7;
      m=8;
var a:array[1..m,1..n] of integer;
    i,j,cl:integer;
    mo:real;

    
begin
cl:=0;mo:=0;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
    if j mod 2 =0 then begin
                        mo:=mo+a[i,j];
                        inc(cl);
                       end;
   end;
   writeln;
 end;
 writeln(mo/cl);

end.

[DM_bite]

program Matrix;
const n=7;
      m=8;
var a:array [0..n, 0..m] of integer;
    sr,sum,k,i,j: integer;
    begin
    randomize;
    for i:= 0 to n do
     for j:= 0 to m do
     begin
      a[i][j]:= random(n+m);
      end;
      sum:= 0;
       k:=0;
      for i:= 0 to n do
       for j:= 0 to m do
       begin
        if (j mod 2 = 0) then
        begin
         sum:= sum + a[i][j];
          k:= k+1;
          end;
          sr:= sum div k;
          end;
          WriteLn(sr);
          ReadLn;
          end.

Вроде правильно. Опоздал.

[NitriNKa]

Сообщение от alex_fcsm

uses crt;
const n=30;
var a:array[1..n] of integer;
    i,cl:integer;
    mo:real;

    
begin
cl:=0;mo:=0;
for i:=1 to n do
 begin
 a[i]:=random(100)-random(100);
 if a[i]>0 then begin
                  inc(cl);
                  mo:=mo+a[i];
                 end;
 end;
 mo:=mo/cl;
 cl:=0;
 for i:=1 to n do
  if (a[i]<mo) and (a[i]>0) then inc(cl);
 writeln(cl);
end.

Спасибо большое, но она не запускается на выполнение, нажимаю Run и ничего не происходит!!

DM_bite тоже спасибочки!!

[DM_bite]

Спасибо большое, но она не запускается на выполнение, нажимаю Run и ничего не происходит!!

Перед

end.

поставь ReadLn;

[NitriNKa]

блииин, точно!! Спасибо!! только я ещё больше обнаглела, но в последний раз. Ещё одна нужна задачка . Определить знак произведения значения функции Y=|3-sin2x|cos(x/3) на интервале изменения аргумента от Хn до Xm с шагом h (n и m - это как бы энное и эм, надеюсь поймёте, что я имею в виду)

[Anatole]

Определить знак произведения значения функции Y=|3-sin2x|cos(x/3) на интервале изменения аргумента от Хn до Xm с шагом h

Надеюсь в операторах ввода-вывода сумеете поставить вразумительные выражения.

program er;

CONST
s=-1;
VAR
n,m,h,x : extended;
r : byte;

Function Y(x: extended): extended;
Begin
Y := asb(3-2*sin(2*x))*cos(x/3);
End;


BEGIN
Write('n='); ReadLn(n);
Write('m='); ReadLn(m);
Write('h='); ReadLn(h);
r:= 1;
x := n;
while x<=m do
begin
if Y(x) < 0 then r :=r*s;
x :=x+h;
end;
if r < 0 then WriteLn('minus') else WriteLn('plus');
END.