Все элементы, стоящие на нечетных местах и предшествующие последнему по порядку минимуму, умножить на максимум

@alenka! · Регистрация: 16.01.2013

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

Задача: Все элементы, стоящие на нечетных местах и предшествующие последнему по порядку минимуму, умножить на максимум.
Пожалуйста

@KrisSik · 16.01.2013, 23:52

м... alenka!, я просто не могу понять, что требуется) я не русский, ти объясни пожалуйста задачу, а я напишу тебе программу)

@drobovik · 16.01.2013, 23:57

я русский, и я не могу)

@ermolay · 17.01.2013, 00:55

Pascal

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  i,n: byte;
  min,max: integer;
begin
  randomize;
  write('Введите размер массива n: ');
  readln(n);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=random(9)+1;
    write(a[i],' ');
  end;
  writeln;
  
  min:=1; max:=1;
  for i:=1 to n do
  begin
    if a[i]<=a[min] then min:=i
      else if a[i]>a[max] then max:=i;
  end;
  for i:=1 to min-1 do
    if i mod 2<>0 then a[i]:=a[i]*a[max];
  writeln('Последний минимум на ',min,' позиции');
  writeln('Максимум = ',a[max]);
  writeln('Полученный массив:');
  for i:=1 to n do write(a[i],' ');
  readln;
end.

Добавлено через 1 минуту

Не по теме:

KrisSik, drobovik учите матчасть и русский язык :)

@alenka! · 17.01.2013, 01:31 **[ТС]**

Огромное спасибо!))) Выручили

@alenka! 0 / 0 / 0 Регистрация: 16.01.2013 Сообщений: 11
		1
	Все элементы, стоящие на нечетных местах и предшествующие последнему по порядку минимуму, умножить на максимум 16.01.2013, 23:06. Показов 519. Ответов 4 Метки нет (Все метки) Задача: Все элементы, стоящие на нечетных местах и предшествующие последнему по порядку минимуму, умножить на максимум. Пожалуйста 0

@KrisSik 32 / 2 / 2 Регистрация: 15.01.2013 Сообщений: 11
	16.01.2013, 23:52	2
	м... alenka!, я просто не могу понять, что требуется) я не русский, ти объясни пожалуйста задачу, а я напишу тебе программу) 0

@drobovik 1 / 1 / 2 Регистрация: 16.01.2013 Сообщений: 6
	16.01.2013, 23:57	3
	я русский, и я не могу) 0

@alenka! 0 / 0 / 0 Регистрация: 16.01.2013 Сообщений: 11
	17.01.2013, 01:31 [ТС]	5
	Огромное спасибо!))) Выручили 0