Найдите значения выражений в Excel, придавая переменным х, у и z различные значения. Проверьте полученные результаты: 3, 4x + y
(x + y)z
0, 8x + 0, 9y - xy
(x + z) y + 0, 1x
(x - z) z + yz
167
388
Ответы на вопрос:
Смотри прикреплённый файл.
Меняй значения x, y, z ⇒ результат вычислений по формулам будет меняться.
Const nn=50; var a: array [1..nn,1..nn] of integer; maxi,maxj,mini,minj,i,j,n,m: integer; begin writeln('введите кол-во строк и столбцов массива: '); readln(n,m); for i: = 1 to n do for j: = 1 to m do begin write('a[',i,',',j,']= '); readln(a[i,j]); end; writeln; writeln('получившийся массив: '); for i: = 1 to n do begin for j: = 1 to m do write(a[i,j]: 4); writeln; end; maxi: =1; maxj: =1; mini: =1; minj: =1; for i: = 1 to n do for j: = 1 to m do begin if a[i,j]> a[maxi,maxj] then begin maxi: =i; maxj: =j; end else if a[i,j]< a[mini,minj] then begin mini: =i; minj: =j; end; end; writeln; writeln('получившийся массив: '); i: =a[maxi,maxj]; a[maxi,maxj]: =a[mini,minj]; a[mini,minj]: =i; for i: = 1 to n do begin for j: = 1 to m do write(a[i,j]: 4); writeln; end; end.
Популярно: Информатика
-
AnnaLyarskaya10.09.2022 04:57
-
LitRoboBoytle18.05.2023 20:36
-
помогитеявжопе12.07.2022 22:56
-
Everiya1510.06.2022 11:15
-
kocrtaru17.07.2021 14:31
-
Makc45721428.02.2020 20:33
-
uvalievnursulta201.05.2020 19:43
-
annakrasnikova204.06.2020 12:43
-
manyna416.10.2022 23:57
-
1553VinyaPyhtya11.10.2020 05:44