Напишите программу, которая заполняет квадратную матрицу случайными числами в интервале [10, 99], а затем записывает нули во все элементы выше главной диагонали. алгоритм не должен изменяться при изменении размеров матрицы

Vb dim matt() as integer dim x,y as integer x=5 y=5 redim matt(x,y) randomize for a as integer = 0 to x for b as integer = 0 to y matt(x,y)= (rnd()*88)+11 next next dim i,z as integer do matt(i,z)=0 i+=1 z+=1 loop until (i=x and z=y)

Const   n = 100; var   a: array[1..n] of integer;   i: integer; begin   //заполняем массив случайными значениями в диапазоне [0; 100]   randomize; //инициализация датчика случайных чисел   for i : = 1 to n do a[i] : = random(100);   i : = 1;   //1 - это два в нулевой степени   while i < n do   begin       writeln('a(', i, ')=', a[i]);       i : = 2 * i;   //удваиваем индекс, чтобы получить очередную степень двойки   end end. результат работы программы: a(1)=26 a(2)=21 a(4)=29 a(8)=74 a(16)=23 a(32)=44 a(64)=20

Uses crt; var a: integer; begin        clrscr;         writeln('архитектор исаакиевского собора:   ');         writeln('1. доменико трезини');         writeln('2. огюст монферран');         writeln('3. карл росси');         writeln('введите номер правильного ответа и нажмите < enter> ');         readln(a);         if a=2 then writeln('правильно. архитектор исаакиевского собора - огюст монферран')        else writeln('не правельно');         readln;         end.