16.Вычислить сумму отрицательных

элементов матрицы Х(6,6),

расположенных выше главной диагонали.

program z16;

uses crt;

var

x:array [1..6,1..6] of integer;

i,j,s:integer;

begin clrscr;

writeln ('vvedote elementy massiva X');

for i:=1 to 6 do

for j:=1 to 6 do

read (x[i,j]);s:=0;

for i:=1 to 6 do

for j:=1 to 6 do begin

if (x[i,j]<0) and (i<j) then s:=s+x[i,j];end;

writeln ('s=',s);

readln;readln;end.

17.Поменять местами наибольший

и наименьший элементы вектора А(10).

program z17;

uses crt;

var

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

max,min,i:integer;

begin clrscr;

writeln ('vvedite elemnti vektora A');

for i:=1 to 10 do

read (a[i]);

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

for i:=2 to 10 do

if a[i]>max then max:=a[i] else

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

for i:=1 to 10 do begin

if max=a[i] then a[i]:=min else

if min=a[i] then a[i]:=max;

write (' ',a[i]);end;

readln;readln;end.

18.В одномерном массиве с(20) просуммировать

первый элемент с последним,

второй с предпоследним и т.д.

Результат записать в массив В(10) и в нем

найти наибольший элемент.

program z18;

uses crt;

var

c:array [1..20] of integer;

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

n,s,i:integer;

begin clrscr;

writeln ('vvedite elemnti vektora C');

for i:=1 to 20 do

read (c[i]);

n:=20;s:=0;

for i:=1 to 10 do begin

s:=c[i]+c[n+1-i];b[i]:=s;write (' ',b[i]);end;

max:=b[1];

for i:=2 to 10 do

if b[i]>max then max:=b[i];

writeln ('max=',max);readln;readln;end.

19.Найти наибольшее значение Х(I)+Y(I)

для массивов Х, Y. (???)

program z19;

const n=7;

var

x:array [1..n] of integer;

y:array [1..n] of integer;

s:array [1..n] of integer;

i,j,max:integer;

begin

writeln ('vvedite vektori X');

for i:=1 to n do

read (x[i]);writeln ('vvedite vektori Y');

for i:=1 to n do begin

read (y[i]);s[i]:=x[i]+y[i];end;max:=s[1];

for i:=2 to n do

if s[i]>max then max:=s[i];

writeln('max=',max);

readln;readln;end.

20.Найти наименьшее значение функции

Y=sin(х²+5x)cos(3x²-x) в интервале

изменения аргумента x от 0 до 8 с шагом 0.4.

Значение функции записать в массив А.

program z20;

uses crt;

var

A:array [1..21] of real;

y,x,min:real;k,i:integer;

begin clrscr;

k:=trunc((8+0)/0.4+1);

x:=0;min:=9999;

for i:=1 to k do begin

y:=sin(x*x+5*x)*cos(3*x*x-x);

if min>y then min:=y;

a[k]:=y;write (' ',a[k]:5:3);

x:=x+0.4;end;

writeln ('min=',min:5:3);

readln;end.

21.Найти наибольшее значение функции

Z=Ax²+Bx+C в интервале изменения

аргумента Х от 1 до 7 с шагом 0,5.

Значения функции записать в массив Н.

program z21;

uses crt;

var

H:array [1..17] of real;

z,x,a,b,c,max:real;k,i:integer;

begin clrscr;

writeln('vvedite a,b i c');

read (a,b,c);

k:=trunc((7+1)/0.5+1);

x:=1;max:=-9999;

for i:=1 to k do begin

z:=a*x*x+b*x+c;

if max<z then max:=z;

h[k]:=z;write (' ',h[k]:5:3);

x:=x+0.5;end;

writeln ('max=',max:5:3);

readln;readln;end.

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

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

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

program z22;

uses crt;

var

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

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

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

i,j,max:integer;

begin clrscr;

writeln ('vvedite vektori A');

for i:=1 to 10 do

read (a[i]);writeln ('vvedite vektori B');

for i:=1 to 10 do begin

read (b[i]);

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

readln;readln;end.