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

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

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 3 702

/ вопрос открыт /

Здравствуйте! Помогите с задачей. Дано масив 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

Комментарий к оценке: Спасибо)

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

Всего сообщений: 2; последнее сообщение — 27 января 2010, 19:23; участников в обсуждении: 2.
Жикльор

Жикльор (статус: 5-ый класс), 27 января 2010, 19:13 [#1]:

А наименьшые элементы, это как понимать??? Наименьший может быть только один элемент, разве что они будут равны, может уточнишь?
Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.
min@y™

min@y™ (статус: Доктор наук), 27 января 2010, 19:23 [#2]:

Цитата (Жикльор):

разве что они будут равны

Да так и есть. Наименьших элементов может быть несколько.
Сделай земляку программу, а то у меня тут запара.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 1 апреля 2023, 17:41
Выполнено за 0.03 сек.
Рейтинг@Mail.ru