Question

Помогите,пожалуйста!

Answer 1

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
       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<H<10000');
  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]<min then
        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.