Дан одномерный массив A[N]. Найти max(a2,a4,.a2k)+min(a1,a3,.,a2k+1)

@st1misha · Регистрация: 03.04.2014

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

Дан одноименный массив А[N] Найти:
max(a2,a4...,a2k)+min(a1,3,...,a2k+1)

@bormant · 01.10.2014, 01:57

Pascal

min:=a[1]; max:=a[2];
for i:=3 to n do
  if Odd(i)
  then if a[i]<min then min:=a[i] else
  else if a[i]>max then max:=a[i];
WriteLn(min+max);

@Joy · 22.10.2014, 17:44

Pascal

const N=20;
var
  a:array[1..N] of integer;
  k,amin,amax:integer;
begin
  randomize;
  amin:=1;amax:=1;
  for k:=1 to N do begin
    a[k]:=random(100)-50;
    write(a[k]:4);
    if odd(k) then begin if a[amin]>a[k] then amin:=k;end
    else if a[amax]<a[k] then amax:=k;
  end;
  writeln;
  writeln('Amin=',a[amin]);
  writeln('Amax=',a[amax]);
  writeln('Amin+Amax=',a[amin]+a[amax]);
  readln;
end.

@st1misha · 02.12.2014, 22:36 **[ТС]**

Спасибо!!

@st1misha 1 / 1 / 0 Регистрация: 03.04.2014 Сообщений: 26
		1
	Дан одномерный массив A[N]. Найти max(a2,a4,.a2k)+min(a1,a3,.,a2k+1) 01.10.2014, 00:35. Показов 8418. Ответов 3 Метки нет (Все метки) Дан одноименный массив А[N] Найти: max(a2,a4...,a2k)+min(a1,3,...,a2k+1) 0

@st1misha 1 / 1 / 0 Регистрация: 03.04.2014 Сообщений: 26
	02.12.2014, 22:36 [ТС]	4
	Спасибо!! 0

Опции темы