Массивы и циклы

[lilywka]

Создать соответствующий массив, в случае необходимости инициализировать его как константу и выполнить с ним действия, указанные в варианте задачи. Разработать логически обоснованный и понятный интерфейс программа - пользователь.

Задали одномерный массив целых чисел, определить, сколько раз в нем встречается элемент со значением К.

program Kol;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=30;
  var mas: array [1..6, 1..3] of integer;
  k,i,j: integer;
  count:byte;
  max:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }

   randomize;
   writeln ('Random matriks 6x3:');

for j:=1 to 6 do
begin
for i:=1 to 6 do
begin
   mas[i,j]:=- 10 + random(21); //  Создание рандомной матрицы в диапазоне -10...
   Write(mas[i,j],'   ');   // вывод матрици на экран
end;
   writeln;
end;
begin
  max:=k[1];
  count:=0;
end;
For i:=1 to n do

If k[i]= max Then
  count:=count+1;
  Writeln(‘число К ‘ , max);
  Writeln(‘количество максимумов = ‘, count);

  Readln;

end.

я запуталась в этой программе. оно мне выдает ошибку на

begin
max:=k[1];
count:=0;

[BDA]

одномерный массив целых чисел

У вас array [1..6, 1..3] - 2-мерный массив.
k - не массив, а переменная типа integer, не может быть k[1].

[lilywka]

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

У вас array [1..6, 1..3] - 2-мерный массив.
k - не массив, а переменная типа integer, не может быть k[1].

тогда будет mas[1]? я уже просто все перепробовала, не работает. все равно тут ошибку выдает.

[Stilet]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=30;
  var mas: array [1..6, 1..6] of integer;
  k,i,j: integer;
  count:byte;
  max:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }

   randomize;
   writeln ('Random matriks 6x3:');
k:=3;
count:=0;
for j:=1 to 6 do  begin
  for i:=1 to 6 do  begin
     mas[i,j]:=- 10 + random(21); //  Создание рандомной матрицы в диапазоне -10...
     Write(mas[i,j]:5);   // вывод матрици на экран
     if mas[i,j]=k then  count:=count+1;
  end;    writeln;
end;

  Writeln('число К ' , k);


  Readln;

end.

Пойдет?

[lilywka]

да, пойдет. спасибо большое. вы мне очень помогли.