Найти min из элементов, стоящих на нечётных местах, домножить на него все элементы, стоящие перед найденным - Turbo Pascal

Формулировка задачи:

В массиве Z1, Z2,…, Z30 найти минимальный из элементов, стоящих на нечётных местах. Домножить на него все элементы, расположенные до найденного минимального.

Код к задаче: «Найти min из элементов, стоящих на нечётных местах, домножить на него все элементы, стоящие перед найденным - Turbo Pascal»

textual
uses
  SysUtils;
var
a: array [0..100] of Integer;
b: array [0..100] of Integer;
i,j,m,N: Integer;
S: Real;
begin
//Число элементов
Readln(N);
//Ввод значенией элементов
for i := 1 to N do
  begin
    Readln(a[i]);
  end;
//Вывод элементов на экран
 for i := 1 to N do
  begin
    Write(a[i]);
  end;
s:=a[1];
m:=1;
i:=1;
//Поиск минимального элемента
Writeln;
  while i<=N do
  begin
    if a[i]<s then
    begin
        s:=a[i];
        j:=i;
      end;
      i:=i+2; //Нечётные позиции
     end;
 
  Writeln(S:3:2); //Вывод минимального элемента
 
  for i := 1 to j-1 do
    begin
      s:=s*a[i];
    end;
   Writeln(S:5:2); //Вывод произведения
  Readln;
end.

5   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы