Найти номер первого максимального значения среди элементов, меньших a и расположенных правее первого элемента, кратного трем

@fox1k · Регистрация: 04.10.2012

Помогите плз!
Найти номер первого максимального значения среди элементов, меньших a и рас-положенных правее первого элемента, кратного трем.

Kodzaev · 05.10.2012, 16:32

Pascal

Uses crt;
Var
  x: Array[1..100] of Integer;
  i,n,nom,d,max,t: Integer;
BEGIN
Writeln('Введите кол-во элементов: '); Readln(n);
Writeln('Массив: ');
For i:=1 to n do
begin
  x[i]:=Random(50);
  Write(x[i],' ');
end;
For i:=n downto 1 do
If x[i] mod 3=0 Then
begin
  d:=x[i];
  nom:=i;
end;
Writeln;
Writeln('Первый элемент, кратный 3: ',d, '. Его номер - ',nom);
For i:=nom+1 to n do
If x[i]<d Then max:=x[i];
For i:=nom+1 to n do
If (x[i]<d) and (x[i]>max) Then
begin
  max:=x[i];
  t:=i;
end;
Writeln;
Writeln('Max: ',max,'. Его номер: ',t);
Readln
END.

@fox1k 0 / 0 / 0 Регистрация: 04.10.2012 Сообщений: 7
		1
	Найти номер первого максимального значения среди элементов, меньших a и расположенных правее первого элемента, кратного трем 04.10.2012, 12:22. Показов 1680. Ответов 1 Метки нет (Все метки) Помогите плз! Найти номер первого максимального значения среди элементов, меньших a и рас-положенных правее первого элемента, кратного трем. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Найти номер первого максимального значения среди элементов, меньших a и расположенных правее первого элемента, кратного трем

Решение