Напиши 2 цикла вложенных по i j от 1 до размерности
Внутри циклов
B(i,j) = A(j,i)
Надеюсь, циклы писать умеешь и массивы объявлять тоже.
1) попробуй зайти в пуск
2) найди тоталл командер
3) найди папку неоткрываемые
4) и просто найди тот звук который тебе нужен.
Ну в принципе, правильные ответы - первый и третий.
<span>Program enot;
Var a,b,c: integer;
begin
write('введите стороны треугольника: ');
read(a,b,c);
writeln(a,' ',b,' ',c,' ');
end.
._.</span>
PascalABC.net
var
i:integer;
a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(-5,5);
write(a[i]:4);
end;
for i:=1 to 10 do
if a[i]>0 then a[i]:=a[i]+2
else a[i]:=0;
writeln;
writeln('Преобразованный массив:');
for i:=1 to 10 do
write(a[i]:4);
<span>end.</span>