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

Question

ПАСКАЛЬ! Создать ДВУМЕРНЫЙ МАССИВ и заполнить его числами от Ммин до Ммакс (Ммин и Ммакc вводятся с клавиатуры). Найти все элементы массива, обладающие свойством НЕЧЁТНЫЕ

---

Скачать вложение Текст (TXT)

Comments

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

---

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

---

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

---

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

---

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

---

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

---

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

Answer 1

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 <> 0) then
      write('Введите элемент массива ')
    else
      until (k = 0);
  end;
  begin
    write('Введите количество строк: ');
    readln(n);
    if (n < 1) or (n > 99) then
      repeat
        write('Введите количество строк: ');
        readln(n);
      until (n >= 1) and (n < 100);
    write('Введите количество столбцов: ');
    readln(m);
    if (m < 1) or (m > 99) then
      repeat
        write('Введите количество столбцов: ');
        readln(m);
      until (m >= 1) and (m < 100);
    write('Введите минимальный элемент массива: ');
    v(min);
    write('Введите максимальный элемент массива: ');
    v(max);
    if min > max then
      while min > max do
      begin
        write('Минимальный элемент массива > максимального, введите снова минимальный элемент: ');
        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 <> 0 then
        write(a[i, j], ' ');
    readln;
end.