[devians]

Сообщение от DJ PhoeniX

Формулы, расчёты и примеры выложите - и будет вам "прототип".

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

1) Рассчитать сумму отрицательных элементов массива А(n), если известно, что
n = 5, A = (1.5, -4.6, 10, -1.7, -4.9).

Код:

PROGRAM Ivanov5;
{$APPTYPE CONSOLE}
USES
  	SysUtils;
CONST
n=5; 	// количество элементов массива
TYPE
     	ar=array[1..n] of real;	// объявление типа массива
VAR
     	a:ar;				// исходный массив А
     	s:real;			// сумма отрицательных элементов
     	i:integer;			// счетчик элементов
begin
     	// Ввод исходных данных
     	WriteLn('Type ', n, ' real elements of array:');
     	for i:=1 to n do
        		Read(a[i]);
     	// Выполнение задачи
     	s:=0;				// начальное значение суммы
     	for i:=1 to n do		// цикл перебора элементов массива
        		if a[i]<0 then		// выборка отрицательных элементов
            		s:=s+a[i];	// суммирование
     	// Вывод результата
     	if s=0 then
        		WriteLn('There are NO negative elements')
     	else
        		WriteLn(' S=',s:8:4);
WriteLn('***** Press <ENTER> to finish *****');
  	Readln;			// задержка экрана
  	Readln;
END.

2) Найти разность R между максимальным и минимальным элементами массива... 

program Ivanov5_2;
{$APPTYPE CONSOLE}
uses
 	SysUtils;
const
     	m=3;			// количество строк и столбцов
type
     	mas=array[1..m,1..m] of integer;	// тип массива
var
     	A:mas;		// массив А
     	R:integer;		// разность
     	Amax:integer;	// максимальный элемент
Amin:integer;	// минимальный элемент
     	i,j:integer;		// счетчики по строкам, столбцам
begin
     	// Ввод исходных данных
      	WriteLn('Type integer elements of array A:');
      	for i:=1 to m do 	
         		for j:=1 to m do Read(A[i,j]);	// поэлементное чтение массива
      	Amin:=A[1,1];	// начальное значение минимального элемента
      	Amax:=A[1,1];	// начальное значение максимального элемента
      	// поиск минимального и максимального элементов	
for i:=1 to m do 
for j:=1 to m do begin
             		if A[i,j]<Amin then Amin:=A[i,j];
             		if A[i,j]>Amax then Amax:=A[i,j]
         		end;
      	R:=Amax-Amin;	// разность
      	WriteLn('-----------------------------------');
      	WriteLn(' Result: R=',R:4);
      	WriteLn('***** Press <ENTER> to finish *****');
Readln;		// задержка экрана
Readln;
end.

Admin: Пользуемся тегами!

P.S. если поможете то могу подарить ключик от беты Starcraft II