Найти минимальное произведение двух рядом стоящих чисел

@flam1ngo289 · Регистрация: 09.02.2023

Author24 — интернет-сервис помощи студентам

В одномерном массиве найти минимальное произведение двух рядом стоящих чисел. Количество элементов задать с консоли

@Cyborg Drone · 01.04.2023, 23:18

Массив не требуется.

Pascal

var
  a, b, p, t: real;
  i, n: integer;
begin
  write('Введите количество чисел: ');
  readln(n);
  if n > 1 then
    begin
      writeln('Введите числа через пробел или <Enter>, конец ввода <Enter>:');
      read(b);
      for i := 2 to n do
        begin
          a := b;
          read(b);
          t := a * b;
          if (i = 2) or (t < p) then p := t
        end;
      readln;
      writeln('Минимальное произведение соседних чисел = ', p)
    end
  else writeln('Вычислить произведение соседних чисел невозможно');
  readln
end.

@flam1ngo289 0 / 0 / 0 Регистрация: 09.02.2023 Сообщений: 8
		1
	Найти минимальное произведение двух рядом стоящих чисел 01.04.2023, 11:17. Показов 371. Ответов 1 Метки pascal, массив, паскаль (Все метки) В одномерном массиве найти минимальное произведение двух рядом стоящих чисел. Количество элементов задать с консоли 0

	01.04.2023, 23:18

Найти минимальное произведение двух рядом стоящих чисел

Решение