1.
const n = 5;
var
a:array[1..n]of integer;
i,c:integer;
begin
c:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i]>0 then
c:=c+1;
end;
writeln(c);
end.
2.
const n = 5;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
begin
read(a[i]);
if a[i]<=0 then<br> write(a[i],' ');
end; end.
3.
const n = 10000;
var
a:array[1..n]of real;
i,h,c,k:integer;
max,min:real;
begin
writeln('Введите размерность массива:0 readln(h);
max:=-1;
for i:=1 to h do
begin
read(a[i]);
if i=1 then
begin
min:=a[i];
k:=i;
end;
if a[i]>max then
begin
max:=a[i];
c:=i;
end;
if a[i] begin
min:=a[i];
k:=i;
end;
end;
a[c]:=a[c]+a[k];
a[k]:=a[c]-a[k];
a[c]:=a[c]-a[k];
for i:=1 to h do
write(a[i],' '); end.