Паскаль в примерах. Иринчеев А.А - 68 стр.

begin
  write('Введите 1 вектор');
   for i:=1 to 10 do
    readln(x[i]);
    write('Введите 2 вектор');
  for i:=1 to 10 do
   readln(y[i]);
    i:=1;a:=true;
     while a and (i<> 10) do
begin
  a:=x[i]=y[i];
  i:=i+1;
writeln('Ответ :',a);
end.
Пример 51. Определить минимальное значения в двух массивах.
program pr51;
 var
  a:array [1..8] of integer;
  min,i,n,z,w,e:integer;
procedure as1;
 var
  i,s,z:integer;
   begin
    write('Введите число элементов в массиве');
    readln(z);
    writeln('Введите массив');
      for i:=1 to z do
       begin
        readln(a[i]);
       end;
min:=a[1];
 for i:=1 to z do
  begin
   if a[i]>min then a[i]:=min;
  end;
writeln('min=',min:8);
  end;
begin
 as1;
 e:=min;
  as1;
  w:=min;
if e>w then
  writeln('Минимальное значение у 1 массива=',w:8)
  else writeln('Минимальное значение у 2 массива=',e:8);
end.

Пример 52. Определить сумму элементов в матрице над и под главной диагональю.
program pr52;
const n=4;
 var
 a:array[1..n,1..n] of integer;

                                                                                68