Прытче, пожайлуста!!! Очень главно!!!2) Составить программку, которая в целом двумерном

Быстрее, пожайлуста!!! Очень главно!!!
2) Составить программку, которая в целом двумерном массиве (6,3) определяет число элементов больше числа, которое вводится с клавиатуры. Массив сгенерирован с подмогою датчика случайных чисел в спектре (1,8). Элементы массива вывести на экран построчно

Задать свой вопрос
1 ответ
Var c: array [1..6, 1..3] of integer;
     k,n,m,i,j,b: integer;
     find:boolean;
begin
  writeln('введите число');
  readln (b);
  randomize;
  n:=6;m:=3;
  k:=0;
  for i:=1 to n do
  begin
  for j:=1 to m do
   begin
     c[i,j]:=2+random(6);   не включая 1 и 8
     if (c[i,j]gt;b) then k:=k+1;
     write(c[i,j]:6);
   end;
  writeln;
  end;
  writeln('число элементов ', k:7)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт