Поделитесь своими знаниями, ответьте на вопрос:
1. Строка записана с ошибкой: if x>a and x≤b then c=a*b Выберите верный вариант записи строки. if (x>a) and x≤b then c:=a*b if x>a and x≤b then c:=a*b if (x>a) and (x≤b) then c=a*b if (x>a) and (x<=b) then c:=a*b 2. В результате выполнения фрагмента программы: а:=20; b:=a+a/10; а:=b/11+ 10; if а else с:=b-а; 3. В результате выполнения фрагмента программы: а:=4; b:=20; а:=а-b/2; if а>b then с:=а+b else с:=b-а; 24 28 26 30 4. Какими будут значения j, k после выполнения условного оператора: if j>k then j:=k*5 else k:=k+2; Если исходные значения переменных равны j=8, k=2 j=40 k=2 j=40 k=4 j=8 k=2 j=8 k=4 5. Определите результат выполнения команды для x=9: if x > 0 then if x < 8 then y:= sqrt (x) else y:= 2*x+1 writeln(y);
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;
writeln('Matrix A:'); //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
writeln;
for j:=1 to n do
begin;
a[i,j]:=random(10);
write(a[i,j]:4);
end;
end;
writeln;
writeln('Matrix C:'); //аналогично
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
c[i,j]:=random(10);
write(c[i,j]:4);
end;
end;
for i:=1 to n do //сохраняем матрицу C для транспонации
for j:=1 to n do
ma[i,j]:=c[i,j];
writeln;
writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
c[i,j]:=ma[j,i];
write(c[i,j]:4);
end;
end;
writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
write(ma[i,j]:4);
end;
end;
end.