Заменить максимальный элемент массива произведением всех элементов, имеющих четный номер

@zver228 · Регистрация: 01.07.2018

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

Помогите пожалуйста
Дано: одномерный массив Y(n) ; n=10.
Заменить максимальный элемент массива произведением всех элементов, имеющих четный номер.

@bormant · 02.07.2018, 14:54

Pascal

const n=10;
var
  y: array [1..n] of Integer;
  i, m: Integer;
  p: Longint;
begin
  Randomize;
  for i:=1 to n do y[i]:=1+Random(20);
  p:=1; i:=2; while i<=n do begin p:=p*y[i]; Inc(i,2); end;
  m:=1; for i:=2 to n do if y[m]<y[i] then m:=i;
  Write('A ='); for i:=1 to n do Write(' ',y[i]); WriteLn;
  y[m]:=p;
  Write('A''='); for i:=1 to n do Write(' ',y[i]); WriteLn;
end.

@zver228 0 / 0 / 0 Регистрация: 01.07.2018 Сообщений: 1
		1
	Заменить максимальный элемент массива произведением всех элементов, имеющих четный номер 01.07.2018, 22:25. Показов 850. Ответов 1 Метки нет (Все метки) Помогите пожалуйста Дано: одномерный массив Y(n) ; n=10. Заменить максимальный элемент массива произведением всех элементов, имеющих четный номер. 0

Опции темы