Найти максимальный из отрицательных элементов массива с четными номерами

@Николай01 · Регистрация: 27.10.2011

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

Найти максимальный из отрицательных элементов массива с четными номерами

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

@!.Ap0$T0L.! · 27.10.2011, 21:37

Pascal

var a:array [1..10000] of longint;
  i,max,k,j,n:longint;
begin
  write('Читаем количествоцифр в масиве:');
  readln(n);
  max:=-1000000;
  write('Масив N=');
  for i:=1 to n do
   read (a[i]);
  for i:=1 to n do
   if (a[i]<0)and(not odd(i))and(a[i]>max)then max:=a[i];
  writeln('МАксимальный елемент из отрицательных чисел=',max);
end.

@Николай01 · 27.10.2011, 23:18 **[ТС]**

Спасибо огромное а можно терь как нить сделать чтобы только с четными номерами

@!.Ap0$T0L.! · 28.10.2011, 10:53

[quote=hoha96;2111566]not odd(i)[/ето проверка номера числа с масива

Добавлено через 28 секунд

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

and(not odd(i))and

ето проверка номера числа с масива

@Николай01 0 / 0 / 0 Регистрация: 27.10.2011 Сообщений: 15
		1
	Найти максимальный из отрицательных элементов массива с четными номерами 27.10.2011, 18:32. Показов 1210. Ответов 3 Метки нет (Все метки) Найти максимальный из отрицательных элементов массива с четными номерами тут нужно свои подставить значения, если не трудно подмогите 0

@Николай01 0 / 0 / 0 Регистрация: 27.10.2011 Сообщений: 15
	27.10.2011, 23:18 [ТС]	3
	Спасибо огромное а можно терь как нить сделать чтобы только с четными номерами 0

@!.Ap0$T0L.! 39 / 39 / 28 Регистрация: 01.12.2010 Сообщений: 126
	28.10.2011, 10:53	4
	[quote=hoha96;2111566]not odd(i)[/ето проверка номера числа с масива Добавлено через 28 секунд Сообщение от hoha96 and(not odd(i))and ето проверка номера числа с масива 1

Опции темы