Pascal

[Nato4ka]

Заранее спасибо!

• в заданном массиве А(N) все элементы которого попарно различны найти наименьший элемент из положительных
  
  
• найти наибольший элемент числового массива А=(а1,а2,.........аN)
  
  
• для заданной целочисленной матрицы определить является ли сумма ее элементов четным числом и вывести на печать соответствующий текст

[maladoy]

 {* в заданном массиве А(N) все элементы которого попарно 
	различны найти наименьший элемент из положительных

    * найти наибольший элемент числового массива А=(а1,а2,.........аN)

    * для заданной целочисленной матрицы 
	определить является ли сумма ее элементов 
	четным числом и вывести на печать соответствующий текст}
	1)
	min:=9999;
	for i:=1 to n do 
	if (a[i]>0) and (a[i]<min) then min:=a[i];
	2)
	max:=-99999;
	for i:=1 to n do 
	if  a[i]>max then  max:=a[i];
	3)
	s:=0;
	for i:=1 to n do
	for j:=1 to n do 
	s:=s+a[i,j];
	if s mod 2 = 0 then writeln('summa chet')
	else writeln('summa nechet');