<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
procedure MatrixCreate(m,n:integer; var A:array[,] of integer);
begin
A:=MatrRandom(m,n,-50,50);
end;
procedure MatrixOutput(A:array[,] of integer);
begin
A.Println(4)
end;
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
var a:array[,] of integer;
MatrixCreate(m,n,a);
Writeln('*** Исходная матрица ***');
MatrixOutput(a);
a.Transform(t->t>0?1:t);
Writeln('*** Полученная матрица ***');
MatrixOutput(a);
end.
<h3>Укажите правильные варианты объявления переменных: </h3><h3>Б, Е.</h3>
А) имя не может начинаться с цифры
В) В имени недопустим символ ^
Г) В имени недопустим символ $
Д) В Паскале не различаются строчные и прописные буквы, поэтому s и S - это одно и то же имя - дважды объявлять имя нельзя.
<h3> Следующие математические функции работают только с целыми числами:</h3><h3>А, Г.</h3>
Б) Sqrt - это функция вычисления квадратного корня; определена для вещественных типов и приводящихся к ним целочисленных
В) Abs - это функция вычисления модуля; определена также для вещественных типов и приводящихся к ним целочисленных
Д) Ln - это функция вычисления натурального логарифма; определена также для вещественных типов и приводящихся к ним целочисленных
Е) Sin - это функция синуса; определена также для вещественных типов и приводящихся к ним целочисленных.
Раздел в диалоговом окне - справка
const
n= 5;
var
i,j,max: integer;
a: array [1..5,1..5] of integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(10);
write(a[i,j],' ')
end;
writeln
end;
max:= a[n,1];
for i:=1 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln(max)
<span>end.</span>
1х25=25кадров в секунду
1мин.=60сек.
25х60=150кадров в минуту
1,5часа=90 мин.
90х150=13500мб.
