Задать массив 7*5 с элементами из диапазона (из 2 до 9) ...

RMK

Задать массив 7*5 с элементами из диапазона (из 2 до 9)Высчитать кол-во элементов равных минимальному и вывести их номера.
1 ответ

RMK

uses math на форме: Button1, memo1,edit1
procedure TForm1.Button1Click(Sender: TObject);
const
a=7;b=5;
var
M:array [1..a,1..b] of integer;
i,j,x,z:integer;
begin
memo1.Lines.Clear; z:=0;
// заполняем массив
 for I := 1 to a do begin
           for j := 1 to b do begin
                               m[i,j]:=randomrange(2,9);
                                end;
                      end;
// поиск минимального элемента
x:=m[1,1];
  for I := 1 to a do begin
           for j := 1 to b do begin
                               if m[i,j]<x then x:=m[i,j];
 
                                end;
                      end;
 // ищем элементы равные минимальному
 for I := 1 to a do begin
           for j := 1 to b do begin
                              // если есть совпадение, считаем и выводим в memo1
                               if m[i,j]=x then begin inc(z); memo1.Lines.Add(inttostr(m[i,j])); end;
 
                                end;
                      end;
// вывод
edit1.Text:='кол-во элементов равных минимальному ='+inttostr(z);
 
end;