• 
  • 02 December 2011
  Английский язык
  • Автор: Ксеня55555

  

  В массиве храниться информация о стоимости товаров. Составьте программу, которая определяет стоимость самого дешевого товара и его индекс.

• 
  • 02 December 2011
  • Ответ оставил: Olchikova

  Массив данных о стоимости товаров зададим в виде целочисленных констант

  program primer_1;
  const a: array[1..12] of integer = (170, 180, 25, 36, 750, 1, 45, 28, 39, 10, 11, 58);
   i,min,k: integer;
   begin

  min:=a[1]; 

  for i:=2 to 12 do    if a[i]<min then

                                               begin 

                                                min:=a[i];
                                                k:=i;
  write('минимальная стоимость ', min, '   индекс' ,k)
  end.

  Или скорее всего этот вариант

  program primer_1;
  var a: array[1..12] of integer;
  i, min, k: integer;
  begin
  for i:=1 to 12 do read(a[i]);{Ввод стоимостей товаров}
  min:=a[1];
  k:=0;
  for i:=2 to 12 do
  if a[i]<min
  then
  begin
  min:=a[i];
  k:=i;
  end;
  write('мин. сто-мость ', min, ' индекс ' ,k)
  end. 

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (24.04.2024) наш сайт содержит 244790 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы