22(?).Даны два одномерных массива а(10) и в(10).

Получить массив С(10), элемент которого равен

произведению соответствующих элементов массивов А и В.

Среди элементов массива С найти наименьший.

Program Laba_4_3;

uses crt;

type T=array [1..10] of real;

var a,b,c:T; i:integer; min:real;

begin clrscr;

writeln('Vvedite elementy massiva');

for i:=1 to 10 do

read (a[i]);

for i:=1 to 10 do

read (b[i]);

for i:=1 to 10 do begin

c[i]:=a[i]*b[i];

writeln('c[ ', i,']=',c[i]); end; min:=c[1];

for i:=1 to 10 do

if c[i]<min then min:=c[i];

write('min=',min);

readln;

readln;

end.

23№

program z23;

type t=array[1..10] of integer;

var a,c,x:t;s1,s2,min,m,j,n:integer;

procedure VV(k:integer;var z:t);

var i:integer;

begin

for i:=1 to k do

read (z[i]);

end;

procedure Sum(k:integer;z:t;var s:integer);

var i:integer;

begin

s:=0;

for i:=1 to k do

if z[i]>0 then s:=s+z[i];

end;

begin n:=4;m:=6;writeln('vvedite elementy vektora A');

vv(n,a);writeln('vvedite elemnty vektora C');vv(m,c);sum(n,a,s1);sum(n,c,s2);

x[1]:=s1;x[2]:=s2;min:=10000;

for j:=1 to 2 do begin

if x[j]<min then min:=x[j];write(' ',x[j]);end;

writeln;

writeln('min=',min);

readln;readln;end.

24.Удвоить все элементы целочисленного вектора а(10),

являющиеся четными числами и утроить все оставшиеся.

program z24;

uses crt;

var

A:array [1..10] of integer;

i:integer;

begin clrscr;

writeln('vvedite elementy vektora A');

for i:=1 to 10 do

read (a[i]);

for i:=1 to 10 do begin

if (a[i] mod 2=0) then a[i]:=a[i]*2 else

a[i]:=a[i]*3;write(' ',a[i]);end;

readln;readln;end.

25№

program z25;

type t=array[1..10,1..10] of integer;

var a,c:t;m,n:integer;sa1,sa2:real;

procedure VV(k,k1:integer;var x:t);

var i,j:integer;

begin

for i:=1 to k do

for j:=1 to k1 do

read (x[i,j]);

end;

procedure Sred(k,k1:integer;x:t;var sa:real);

var i,j,z,s:integer;

begin

s:=0;z:=0;

for i:=1 to k do

for j:=1 to k1 do

if i=j then begin s:=s+x[i,j];z:=z+1;end;

sa:=s/z;

end;

begin

n:=4;m:=5;writeln('vvedite elementy massiva A');vv(n,n,a);

writeln('vvedite elementy massiva B');vv(m,m,c);

sred(n,n,a,sa1);sred(m,m,c,sa2);

writeln ('sa1=',sa1:5:2);

writeln ('sa2=',sa2:5:2);

readln;readln;end.

26№

program z26;

type t=array[1..10,1..10] of integer;

var a,c:t;m,n:integer;sa1,sa2:real;

procedure VV(k,k1:integer;var x:t);

var i,j:integer;

begin

for i:=1 to k do

for j:=1 to k1 do

read (x[i,j]);

end;

procedure Sred(k,k1:integer;x:t;var sa:real);

var i,j,z,s:integer;

begin

s:=0;z:=0;

for i:=1 to k do

for j:=1 to k1 do

if i>j then begin s:=s+x[i,j];z:=z+1;end;

sa:=s/z;

end;

begin

n:=4;m:=5;writeln('vvedite elementy massiva A');vv(n,n,a);

writeln('vvedite elementy massiva B');vv(m,m,c);

sred(n,n,a,sa1);sred(m,m,c,sa2);

writeln ('sa1=',sa1:5:2);

writeln ('sa2=',sa2:5:2);

readln;readln;end.

27№

program z27;

type t=array[1..20] of integer;

var z,x:t;imax2,imax1,m,n:integer;

procedure VV(k:integer;var a:t);

var i:integer;

begin

for i:=1 to k do

read (a[i]);

end;

procedure Numb(k:integer;a:t;var imax:integer);

var i,max:integer;

begin

max:=a[1];imax:=1;

for i:=2 to k do

if a[i]>max then begin max:=a[i];imax:=i;end;

end;

begin

n:=10;m:=15;writeln('vvedite elementy vektora Z');

vv(n,z);writeln('vvedite elemnty vektora X');vv(m,x);

numb(n,z,imax1);numb(m,x,imax2);

writeln ('imax1=',imax1);

writeln ('imax2=',imax2);

readln;readln;end.

28№

program z28;

type t=array[1..10,1..10] of integer;

var b,c:t;m1,n1,m2,n2,s1,p1,p2,s2:integer;

procedure VV(k,k1:integer;var x:t);

var i,j:integer;

begin

for i:=1 to k do

for j:=1 to k1 do

read (x[i,j]);

end;

procedure SiP(k,k1:integer;x:t;var s,p:integer);

var i,j:integer;

begin

s:=0;p:=1;

for i:=1 to k do

for j:=1 to k1 do begin

if x[i,j]<0 then s:=s+x[i,j];

if x[i,j]>0 then p:=p*x[i,j];end;

end;

begin

n1:=3;m1:=5;n2:=3;m2:=4;writeln('vvedite elementy matricy B');

vv(n1,m1,b);writeln('vvedite elemnty matricy C');vv(n2,m2,c);

sip(n1,m1,b,s1,p1);sip(n2,m2,c,s2,p2);

writeln ('s1=',s1);

writeln ('s2=',s2);

writeln ('p1=',p1);

writeln ('p2=',p2);

readln;readln;end.