Форум сайта ITstudents.ru | Всё для студента информата

uses
   crt;

var a:array[1..4,1..3] of integer;
     i,j:integer;
     s:double;

begin
   randomize;
   for i:=1 to 4 do
     begin
       writeln;
       for j:=1 to 3 do
         begin
           a[i,j]:=random(99);
           write(a[i,j]:5);
           if (a[i,j] mod 2<>0) then s:=s+a[i,j];
         end;
     end;
   writeln;
   writeln(s/12:5:2);
   readln;
end.

uses
    crt;
const n=4;
var a:array[1..n,1..n] of integer;
      i,j,k:integer;
begin
    randomize;
    for i:=1 to n do
        for j:=1 to n do a[i,j]:=random(99);
    for i:=1 to n do
      begin
        for j:=1 to n do
          begin
            write(a[i,j]:5);
            if (a[i,j] mod 2=0)
            and(a[i,j]<a[i,n-i+1]) then
                    k:=k+1;
          end;
        writeln(k:5);
        k:=0;
      end;
    readln;
end.

uses
    crt;
const
    n=10;
var
    a:array[1..n] of integer;
    i,j,k:integer;
begin
    randomize;
    i:=0;
    while i<n do
      begin
         inc(i);
         a[i]:=random(99);
         write(a[i]:5);
      end;
    i:=0;j:=0;
    while i<n-1 do
      begin
        inc(i);
        j:=0;
        while j<n-1 do
          begin
            inc(j);
            if a[j]>a[j+1] then
              begin
                k:=a[j];
                a[j]:=a[j+1];
                a[j+1]:=k;
              end;
          end;
      end;
    writeln;
    writeln;
    i:=0;
    while i<n do
      begin
         inc(i);
         write(a[i]:5);
      end;
    readln;
end.