Массивы

[lisapendrik]

В одномерном массиве состоящем из n целых элементов, вычислить:
1) номер максимального элемента массива;
2)произведение элементов массива, расположенныъ между первым и вторым нулевыми элементами.
Преобразовать массив таким образом, чтобы в первой его половине распологались элементы, стоявщие в нечетных позициях, а во второй половине - элементы, стоявщие в четных позициях.

[Alex2009]

Стучи в ICQ 2820657 попробую помочь

[Stilet]

lisapendrik

Наработки в студию.
Ато ведь и такое можно написать:

MODULE ObxHello0;

	IMPORT StdLog;

	PROCEDURE Do*;
	VAR a:ARRAY(5) OF INTEGER;
	 max,i:INTEGER;
	BEGIN
	 max:=0;
	 FOR i:=0 TO 4 DO
	   a[i]:=i; 
	   IF a[max]<a[i] THEN max:=i; END;
		StdLog.Int(a[i]); 
		StdLog.Ln;	(* вывод строки и 0DX в рабочий журнал *)
	 END;
	  StdLog.String('Максимальный элемент = ');
		StdLog.Int(max); 
		StdLog.Ln;	(* вывод строки и 0DX в рабочий журнал *)
	END Do;

END ObxHello0.

[Alex2009]

Ей не на Dephi а на c++ нужно

[Stilet]

Alex2009

Это где написано?

Ей не на Dephi

А причем тут Делфи? Я и не говорил о Делфи.

[Alex2009]

Я вообще говорю что на Delphi образно она сома мне говарила что с++!!!Тема закрыта вопрос ее я решил!