Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2008, 20:58   #1
Паскалька^^
Пользователь
 
Регистрация: 25.11.2008
Сообщений: 53
Восклицание . Среди всех нецелых элементов этого массива найти наименьший и определить его номер в массиве

Задан массив действительных чисел. Среди всех нецелых элементов этого массива найти наименьший и определить его номер в массиве, если таких несколько, то указать тот, который встретится в массиве первым.
Паскалька^^ вне форума Ответить с цитированием
Старый 18.12.2008, 21:10   #2
CrazyRabbit
Пользователь
 
Аватар для CrazyRabbit
 
Регистрация: 27.10.2008
Сообщений: 38
По умолчанию

Код:
var a:array[1..100]of real;
i,mini,n:integer;
min:real;
begin
readln(n);
 for i:=1 to n do
  read(a[i]);
  min:=a[1];
   mini:=1;
    for i:=2 to n do
     if a[i]<min then
      begin
       mini:=i;
	min:=a[i];
      end;

      writeln('minimalnoe chislo=',min:0:10);
       writeln('ego nomer=',mini);
end.
CrazyRabbit вне форума Ответить с цитированием
Старый 18.12.2008, 21:38   #3
Паскалька^^
Пользователь
 
Регистрация: 25.11.2008
Сообщений: 53
По умолчанию

Спасибо большоее!!!!!
Паскалька^^ вне форума Ответить с цитированием
Старый 19.12.2008, 14:18   #4
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Цитата:
Сообщение от Паскалька^^ Посмотреть сообщение
Задан массив действительных чисел. Среди всех нецелых элементов этого массива найти наименьший и определить его номер в массиве, если таких несколько, то указать тот, который встретится в массиве первым.
Код:
uses crt;
var a:array[1..100]of real;
    i,mini,n:integer;
    flag:boolean;

begin
clrscr;
flag:=true;
readln(n);
mini:=0;
 for i:=1 to n do
  read(a[i]);
    for i:=1 to n do
     if (a[i]-trunc(a[i]))<>0 then
      begin
      if flag then begin
                    mini:=i;
                    flag:=false;
                   end
         else begin
               if a[i]<a[mini] then mini:=i;
              end;

      end;
if mini<>0 then begin
                 writeln('minimalnoe chislo=',a[mini]:10:5);
                 writeln('ego nomer=',mini);
                end;
end
.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Для массива определить сумму всех элементов, стоящих после максимального HECTOR.A. Паскаль, Turbo Pascal, PascalABC.NET 4 17.06.2009 22:04
вычислить номер и величину максимального элемента массива, произведение элементов, среднее арифметическое Romer9999 Паскаль, Turbo Pascal, PascalABC.NET 6 19.01.2009 16:35
Среди 20 введёных чисел определить чётные, распечатать их, определить min Spade Помощь студентам 4 15.06.2008 18:39
В двумерном массиве 4*5 найти сумму элементов по строке или столбцу. bkmz Помощь студентам 11 16.04.2008 11:17
Найти сумму последних L положительных элементов в массиве A={a[i]}. Assembler Kasim Помощь студентам 2 16.12.2007 16:12