Регистрация
ektgdb
01.10.2021 21:53
Информатика
Есть ответ 👍

Написать блок схему и программу используя программу For для вывода на экран чисел от 30 до 20
Решите это очень

106
242
Посмотреть ответы 1

Ответы на вопрос:

lexalarionov11
lexalarionov11
4,4(89 оценок)
Var matrix1: array [,] of real; n: integer; tmp: real; begin   write('введи размерность матрицы: ');   readln(n);   matrix1: =new real[n,n];   for var i: =0 to n-1 do  begin     for var j: =0 to n-1 do     begin       matrix1[i,j]: =random(100);       write(matrix1[i,j]: 4);     end;     writeln;   end;   writeln('поменяли: ');   for var j: =0 to n-1 do   begin       tmp: =matrix1[j,n-1];       matrix1[j,n-1]: =matrix1[n-1,j];       matrix1[n-1,j]: =tmp;   end;   for var i: =0 to n-1 do  begin         for var j: =0 to n-1 do               write(matrix1[i,j]: 4);         writeln;   end;   end.

Популярно: Информатика