строки((((

[серега222]

Составить программу на паскале.
Дан одномерный массив, выполнить следующие действия:
- подсчитать сколько в нём положительных элементов
- поменять местами наибольший и наименьший элементы
- вывести на печать все числа, включительно до первого нуля
- определить наибольший элемент

[Stilet]

подсчитать сколько в нём положительных элементов

Ну например:

var a:array[1..100] of integer; i,mx:byte;
begin mx:=0;
 for i:=1 to 100 do if a[i]>0 then inc(mx);
end.

Теперь в mx будет кол-во положительных

[серега222]

Спасиб! но мне бы желательно полностью задачку!))))))))

[Stilet]

полностью задачку!))))))))

А это и есь полностью.
Добавь перед end.

Write(mx);readln;

И иди получать свою пятерку-верх-ногами.

[__STDC__]

имеется ввиду наверное "Где остальные пункты?!?!? За что я вам деньги плачу?? А ну работать! Солнце еще высоко!!!"
***

const 
	n = 10;
var
	x:array[1..n] of integer;
	i,max,min,max_index,min_index:integer;
	
procedure swap(var x,y:integer);
var
	tmp:integer;
begin
	tmp := x;
	x := y;
	y := tmp;
end;
	
begin
	randomize;
	for i:=1 to n do
		x[i] := random(n)+1;

	for i:=1 to n do
		write(x[i]:3);
{2}		
	max := x[1]; min := x[1]; max_index := 1; min_index := 1;
	for i:= 1 to n do begin
		if (x[i] < min) then begin
			min := x[i];
			min_index := i;
		end;
		if (x[i] > max) then begin
			max := x[i];
			max_index := i;
		end;
	end;
	swap(x[max_index],x[min_index]);
{/2}	
{3}
	writeln;
	for i:=1 to n do begin
		write(x[i]:3);
		if (x[i] < 0) then break;
	end;
{/3}
	writeln;
{4}
	writeln('Max is ',max);
{/4}
	readln;
end.

[серега222]

Спасиб народ!