9 заданий к контрольной работе по паскалю...

var a:array[1..10,1..10]of integer;i,j:byte;
begin randomize;for i:=1 to 10 do begin
for j:=1 to 10 do begin a[i,j]:=random(10);write(a[i,j],' ');end;writeln;end;writeln;
for i:=1 to 10 do begin for j:=1 to 10 do if i+j-1<10 then write(a[i,j],' ');writeln;end;readln;end.

for i:=1 to n do
 if a[i] mod m=l then writeln('iskomyi element=',a[i]);

var n,i:integer;x,z:real;
function s(i:byte;x:real):real;
begin s:=exp(i*ln(x));end;
begin readln(n,x);while i<=n do begin
 z:=z+s(i,cos(s(i,x)));inc(i);
end;writeln('z=',z-1:0:4);readln;end.

var n,i:integer;x,z:real;
function s(i:byte;x:real):real;
begin s:=exp(i*ln(x));end;
begin readln(n,x);for i:=1 to n do z:=z+s(i,cos(s(i,x)));
writeln('z=',z:0:4);readln;end.

uses crt;var a:array[1..100]of longint;b,c,d,i:longint;
begin readln(b,c,d);for i:=1 to b do begin read(a[i]);
if a[i]mod c=d then writeln('el=',a[i]);end;readln;readln;end.

uses crt;type mas=array[1..50]of longint;var a:mas;b,i,j,c:byte;
function l(a:mas;b:longint;j:byte):boolean;var i:byte;
begin l:=true;for i:=1 to j-1 do if a[i]=b then begin l:=false;break;end;end;
begin clrscr;readln(b);for I:=1 to b do read(a[i]);
for i:=1 to b do if l(a,a[i],i) then
for j:=1 to b do if (i<>j)and(a[i]=a[j]) then inc(c);
writeln(c);readln;readln;end.

uses crt;var a:array[1..100]of longint;b,c,d,i:longint;
begin readln(b,c,d);for i:=1 to b do begin a[i]:=i;
if a[i]mod c=d then writeln('el=',a[i]);end;readln;readln;end.

uses crt;var a:array[1..100]of integer;b,i,j:byte;s,m:integer;
begin readln(b);for i:=1 to b do begin read(a[i]);inc(s,a[i]);
if i=1 then begin m:=a[1];j:=1;end else if a[i]<=m then begin
m:=a[i];j:=i;end;end;s:=trunc(s/b);a[j]:=s;for i:=1 to b do
write(a[i],' ');writeln;readln;readln;end.

var a:array[1..50,1..50]of byte;i,j,b:byte;
begin readln(b);for i:=1 to b do begin
for j:=1 to b do begin if odd((i-1)*b+j) then
a[i,j]:=1 else a[i,j]:=0;write(a[i,j],' ');end;writeln;end;readln;end.

uses crt;var a,i,j,n,m:word;p:boolean;
function pr(n:word):boolean;var d,i:word;
begin d:=0;pr:=false;for i:=1 to n div 2 do
if n mod i=0 then inc(d);if d=2 then pr:=true;end;
begin clrscr;readln(a);for i:=4 to a do
if (i mod 2=0)and(i mod 3=0)and(i mod 5=0) then begin
p:=true;for j:=2 to i div 2 do
if (i mod j=0)and(pr(j))and(j=3)and(j=5)and(j=2) then p:=false;
if p then writeln(i);end;readln;end.

uses crt;
var 
  a:array[1..50,1..50]of byte;
  i,j,b:byte;
begin 
  clrscr;
  readln(b);
  for i:=1 to b do 
  begin
    for j:=1 to b do 
    begin 
      if ((odd(i))and(odd(j)=false)) or ((odd(i)=false)and(odd(j))) then 
        a[i,j]:=1;write(a[i,j],' ');
    end;
    writeln;
  end;
  readln;
end.