Дана матрица а(n×m получить вектор b1, b2, …, bn, где bi равно произведениям элементов строк. составить программу на языке basic

правильность не гарантирую, потому что проверить в данный момент код негде.

 

sub название

dim a() as integerdim b() as integerdim i, j as integer

 

'задаем размерность массиваconsole.writeline ("введите количество строк")n = console.readline                                               console.writeline ("введите количество столбцов")m = console.readline

redim a(n, m) as integerredim b(n) as integer

 

'цикл ввода данныхfor i = 1 to nfor j = 1 to m console.writeline ("введите число") a(i, j) = console.readlinenext jnext i

 

'все элементы массива b изначально делаем единичными, чтобы при умножении они не повлияли на значениеfor i = 1 to nb(i) = 1next i

 

'цикл вычисления каждого элемента массива bfor i = 1 to nfor j = 1 to mb(i) = b(i) * a(i, j)next jnext i

 

'вывод результата на экранfor i = 1 to nconsole.write (b(i))next iend sub

1.отметьте допустимые идентификаторы знаком«+»,а недопустимые знаком «-» + 1) razmer + 2)_beta - 3) 5 abc + 4) y22m 2. подберите подходящий тип данных: a) количество учеников в классе – integer, word, byte b)заработанная плата сотрудника фирмы- real, double c) фамилия сотрудника фирмы – string 3.запишите арифметические выражения на языке программирования паскаль: a) ac-b+xyz  = a*c-b+x*y*z; в) a*x^2+b*x+c = a*x*x+b*x+c; c) (a-b)x+3/y+z = (a-b)*x+3/(y+z); 4) напишите инструкцию вывода на экран: а) вашего имени = write('ваше имя'); в) число 400 = write(400); с) значение выражения x+y = write(x+y);

Var      surname : array [1..30] of string;         mark   : array [1..30] of real;           cand     : array [1..30] of string;         npupil, k : integer;                                                         begin    write('сколько всего учеников ? ');   readln(npupil);   writeln('введите фамилии и оценки учеников : ');   for var i : = 1 to npupil do    begin write(i, '. фамилия - '); readln(surname[i]);           write('     оценка - ');     readln(mark[i]);     end; writeln;   k: =0;     for var i : = 1 to npupil do    if mark[i]=2   then      begin k: =k+1; cand[k] : = surname[i] end;   if k=0 then writeln('в классе нет двоечников.')    else  begin writeln('двоечники : ');             for var i : = 1 to k do writeln( i, '. ' , cand[i]);       end; end.