ПАСКАЛЬ! Сделать ДВУМЕРНЫЙ МАССИВ и заполнить его числами от Ммин до

О! разродился, в конце концов!

к заданию прикреплён файл, вот приблизительно такое должно получиться, но я не знаю в чём у меня ошибка, т.к. он наполняет массив одним числом (складывает ммин и ммакс)

Скажите, а иные деянья Вы тоже выполняете не сходу, а когда три раза попросят? В частности, меня интересует процесс вытирания задницы после визита в туалет: можно прямо там, сходу, а можно после того, как кто-нибуть приветливо укажет Для вас на запах.

не мог сходу прикрепить данный файл

Первый же IF написан правильно, но вздорно. Зачем там else?

спасибо, увидел

Я не прав. Там ВСЁ абсурд. В тексте ДВА блока begin-end уровня "программка". Я не разумею, как это вообщем скомпилировалось.

О! разродился, в конце концов!

к заданию прикреплён файл, вот приблизительно такое обязано получиться, но я не знаю в чём у меня ошибка, т.к. он наполняет массив одним числом (складывает ммин и ммакс)

Скажите, а иные деянья Вы тоже выполняете не сразу, а когда три раза попросят? В частности, меня интересует процесс вытирания задницы после визита в туалет: можно прямо там, сходу, а можно после того, как кто-нибуть воспитанно укажет Для вас на запах.

не мог сходу прикрепить данный файл

1-ый же IF написан правильно, но бессмысленно. Для чего там else?

спасибо, увидел

Я не прав. Там ВСЁ абсурд. В тексте ДВА блока begin-end уровня "программка". Я не разумею, как это вообще скомпилировалось.

Program Project1;

APPTYPE CONSOLE

R *.res

uses
  System.SysUtils;

var
i, j, m, n, max, min: integer;
a: array [1..99, 1..99] of integer;

procedure v(var p: integer);
var
  k: integer;
  s: string;
begin
  repeat
    readln(s);
    val(s, p, k);
    if (k lt;gt; 0) then
      write('Введите элемент массива ')
    else
      until (k = 0);
  end;
  begin
    write('Введите количество строк: ');
    readln(n);
    if (n lt; 1) or (n gt; 99) then
      repeat
        write('Введите количество строк: ');
        readln(n);
      until (n gt;= 1) and (n lt; 100);
    write('Введите количество столбцов: ');
    readln(m);
    if (m lt; 1) or (m gt; 99) then
      repeat
        write('Введите количество столбцов: ');
        readln(m);
      until (m gt;= 1) and (m lt; 100);
    write('Введите минимальный элемент массива: ');
    v(min);
    write('Введите максимальный элемент массива: ');
    v(max);
    if min gt; max then
      while min gt; max do
      begin
        write('Минимальный элемент массива gt; наибольшего, введите опять малый элемент: ');
        v(min);
      end;
    writeln('Элементы массива:');
    Randomize;
    for i:= 1 to n do
      for j:= 1 to m do
       a[i, j]:=Random(max - min + 1) + min;
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(' ', a[i, j]:2);
      writeln;
    end;
    writeln('нечетные элементы массива:');
    for i := 1 to n do
      for j := 1 to m do
      if a[i, j] mod 2 lt;gt; 0 then
        write(a[i, j], ' ');
    readln;
end.