Нужна помощь с задачами! (Pascal ABC)

[Александр_ТГМТ]

1) Найти значение функции y=lg(x[SUP]3[/SUP]+4x-1) для x=0,71;0,9;1;8;9,5.
2) В двумерном массиве найти кол-во элементов, кратных 5.

[Stilet]

Пробовал как-нибудь?

[Александр_ТГМТ]

Вот 2. Но что то не так, как должно быть. я добавлял и правил.

Program zadacha_massiv;
 Const N=10;
 type Mas1=array[1..n,1..n] of integer;
      Mas2=array[1..n] of integer;
 var  a: mas2; b: mas1; k,k1,sum,kolvo: integer;
 
 BEGIN
  randomize;
  kolvo:=0;
  for k1:=1 to n do
    begin
      for k:=1 to n do
        begin
          b[k1,k]:=random(99);
          write(b[k1,k]:4);
        end;
      writeln;
    end;
  for k:=1 to n do
    begin
      sum:=0;
      for k1:=1 to n do
         if ((b[k1,k] MOD 5)=0) then
            sum:=sum+1;
      a[k]:=sum;
      if kolvo<sum then
        kolvo:=sum;
    end;
  writeln;
  writeln('vivod');
  for k1:=1 to n do
      write(a[k1]:4);
  Writeln;
  Writeln('kol-vo= ',kolvo);
END.

[Stilet]

Program zadacha_massiv;
 Const N=10;

 var  a: array[1..n,1..n] of integer;  k,k1,kolvo: integer;
 
 BEGIN
  randomize;
  kolvo:=0;
  for k1:=1 to n do
    begin
      for k:=1 to n do
        begin
          a[k1,k]:=random(99);
          write(b[k1,k]:4);
          if (a[k1,k] mod 5)=0 then inc(kolvo);
        end;
      writeln;
    end;

  Writeln('kol-vo= ',kolvo);

  readln;
END.

Идея ясна?

[Александр_ТГМТ]

Да, вполне. Спасибо)