Question

люди очень написать программы в VB: 1).с двумерного массива 4х2, заполненного существующими кодами символов, сделать массив самых символов. 2). Есть квадратная матрица 3х3 действительных чисел. Вывести этой матрицы одномерный массив приближенных к 1, при отсутствии таких-вывести соответствующее сообщение. 3 цифр,

Answer 1

const n=3; m=4;

var a: array [1..n,1..m] of integer;

   k,sum,min,i,j:integer;

begin

Randomize;

writeln('---A:---');

for i:=1 to n do begin

 for j:=1 to m do begin

   a[i,j]:=Random(20)-10;

   write(a[i,j]:6);

 end;

 writeln;

end;

// а

k:=0;

for j:=1 to m do

if a[3,j]<0 then k:=k+1;

writeln('k=',k);

// б

sum:=0;

for i:=1 to n do

 for j:=1 to m do sum:=sum+a[i,j];

writeln('sum=',sum);

// в

min:=a[1,1];

for i:=2 to n do

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

writeln('min=',min);

end.