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

@ZackFair · Регистрация: 08.01.2012

Здравствуйте помогите решить задачу, ввод массива я сделал, а вот дальше не могу.

В заданном массиве a1, a2, …, an все элементы c четными индексами, предшествующие максимальному элементы массива (первому по порядку, если их несколько), умножить на величину максимального элемента этого массива.

@tantemka · 08.01.2012, 19:30

Поиск максимума:

Pascal

max = a[1];
imax=1;
for i:=2 to n do
  if a[i]>max then
       begin
          max=a[i];
          imax=i;
        end;

Увеличиваем элементы перед максимумом

Pascal

1
2
3

for i:=1 to imax do
  if i mod 2 =0 
      then  a[i]:= a[i]*max;

Только переменные max и imax объявите в var

@ZackFair · 08.01.2012, 22:08 **[ТС]**

Сообщение от tantemka

Увеличиваем элементы перед максимумом

Pascal

1
2
3

for i:=1 to imax do
  if i mod 2 =0 
      then  a[i]:= a[i]*max;

Только переменные max и imax объявите в var

Не пашет тут

@tantemka · 08.01.2012, 22:26

если несложно выложите весь код

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

Pascal

    max := a[1];
    imax:=1;
    for i:=2 to 6 do
        if a[i]>max then
          begin
            max:=a[i];
            imax:=i;
          end;
    writeln(max);
    for i:=1 to imax do
      if i mod 2 =0
        then  a[i]:= a[i]*max;
    for i:=1 to 6 do
      write(a[i]:4);

Нормально работает

@ZackFair · 08.01.2012, 22:46 **[ТС]**

Delphi

VAR A:array[1..100] of real;  n, i:integer;  imax, max,t:real;
    begin
    write('n=');
    readln(n);
    For i:=1 to n do
      begin
      Write('A[',i,']=');
      Readln(A[i]);
      end;
        writeln('massiveA');
      for i:=1 to n do write (A[i]:4:0);
      writeln;
      readln;
      max:=A[1];
imax:=1;
for i:=2 to n do
  if a[i]>max then
       begin
          max:=a[i];
          imax:=i;
        end;
 begin
 writeln('max= ', max:1:0);
 writeln('imax= ', imax:1:0);
 end;
readln;
for i:=1 to imax do
  if i mod 2 =0
      then  a[i]:= a[i]*max;

Выдает [DCC Error] Project10.dpr(34): E2010 Incompatible types: 'Integer' and 'Real'

@tantemka · 08.01.2012, 22:51

Просто вы в var указали:

Сообщение от ZackFair

VAR A:array[1..100] of real; n, i:integer; imax, max,t:real

A надо указать, что imax то же является integer

Pascal

1
2
3

A:array[1..100] of real;
n, imax, i:integer; 
max,t:real

@ZackFair · 08.01.2012, 22:55 **[ТС]**

я меня тогда ноет на вывод [DCC Error] Project10.dpr(33): E2054 Illegal type in Write/Writeln statement

@tantemka · 08.01.2012, 22:57

В итоге это выглядит так:

Pascal

VAR
    A:array[1..100] of real;
    imax,n, i:integer;
    max:real;
 
begin
    write('n= ');
    readln(n);
    For i:=1 to n do
      begin
      Write('A[',i,']= ');
      Readln(A[i]);
      end;
        writeln('massive A');
      for i:=1 to n do write (A[i]:4:0);
      writeln;
     max := A[1];
    imax:=1;
    for i:=2 to n do
        if a[i]>max then
          begin
            max:=a[i];
            imax:=i;
          end;
    writeln(max:4:0);
    for i:=1 to imax do
      if i mod 2 =0
        then  a[i]:= a[i]*max;
    for i:=1 to n do
      write(a[i]:4:0);
 
      WriteLn('***** Press <ENTER> to finish *****');
    Readln; 
 
end.

@ZackFair · 08.01.2012, 23:11 **[ТС]**

Огромнейшее спасибо...

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

Решение

Решение

Решение

@ZackFair 0 / 0 / 0 Регистрация: 08.01.2012 Сообщений: 8
		1
	Все элементы массива с четными индексами, предшествующие максимальному, умножить на величину максимального 08.01.2012, 18:35. Показов 1630. Ответов 8 Метки нет (Все метки) Здравствуйте помогите решить задачу, ввод массива я сделал, а вот дальше не могу. В заданном массиве a1, a2, …, an все элементы c четными индексами, предшествующие максимальному элементы массива (первому по порядку, если их несколько), умножить на величину максимального элемента этого массива. 0

@ZackFair 0 / 0 / 0 Регистрация: 08.01.2012 Сообщений: 8
	08.01.2012, 22:55 [ТС]	7
	я меня тогда ноет на вывод [DCC Error] Project10.dpr(33): E2054 Illegal type in Write/Writeln statement 0

@ZackFair 0 / 0 / 0 Регистрация: 08.01.2012 Сообщений: 8
	08.01.2012, 23:11 [ТС]	9
	Огромнейшее спасибо... 0

Опции темы