Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте! Помогите с задачей. Дано масив A[m,n] числа которого типа real. вивести етот масив на экран, посчитать количество найменших елементов, та вивести их индексы.

Вопрос задал: Дементьев Евгений Владимирович (статус: Посетитель) Вопрос отправлен: 27 января 2010, 17:23 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Жикльор

Здравствуйте, Дементьев Евгений Владимирович!

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
col = 5;
row = 3;
var
mas: array [1..col,1..row] of real;
i,j,count: integer;
min: real;
index: string;
begin
Randomize;
for i:=1 to col do
  begin
  for j:=1 to row do
    begin
    mas[i,j]:=Random(10)-5;
    write(mas[i,j]:4:0);
    end;
  writeln;
  end;
count:=0;
min:=mas[1,1];
index:='';
for i:=1 to col do
  for j:=1 to row do
    begin
    if mas[i,j] < min then
      begin
      count:=1;
      index:=IntToStr(i) + IntToStr(j) + '  ';
      min:=mas[i,j];
      end
      else
      if mas[i,j] = min then
        begin
        count:=count + 1;
        index:=index + IntToStr(i) + IntToStr(j) + '  ';
        end;
    end;
writeln('Kilkist minimalnix elementyv ',count);
writeln('Indexu:');
write(index);
readln;
end.

Ответ отправил: Жикльор (статус: 5-ый класс) Время отправки: 27 января 2010, 19:47 Оценка за ответ: 5 Комментарий к оценке: Спасибо)

Мини-форум вопроса

Жикльор (статус: 5-ый класс), 27 января 2010, 19:13 [#1]: А наименьшые элементы, это как понимать??? Наименьший может быть только один элемент, разве что они будут равны, может уточнишь? Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.

min@y™ (статус: Доктор наук), 27 января 2010, 19:23 [#2]: Цитата (Жикльор): разве что они будут равны Да так и есть. Наименьших элементов может быть несколько. Сделай земляку программу, а то у меня тут запара. Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.