Дана матрица размерностью nxn найти дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной диагональю матрицы. найти квадрат разности среди арифметических значений элементов матрицы ,находящихся ниже и выше главной диагонали
289
449
Ответы на вопрос:
Const n=3; var a: array[1..n,1..n] of integer; i,j,min,s: integer; upsr,downsr,k: real; begin for i: =1 to n do for j: =1 to n do a[i,j]: =random(10); for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 5); writeln; end; min: =a[1,1]; s: =0; for i: =1 to n do for j: =1 to n do begin if (a[i,j]< min) and (j> i) then min: =a[i,j]; end; for i: =1 to n do for j: =1 to n do if i< j then s: =s+a[i,j]; upsr: =s/((sqr(n)-n)/2); s: =0; for i: =1 to n do for j: =1 to n do if i> j then s: =s+a[i,j]; downsr: =s/((sqr(n)-n)/2); k: =sqr(downsr-upsr); writeln('минимальный элемент выше главной диагонали ',min); writeln('среднее арифметическое элементов выше главной диагонали ',upsr); writeln('среднее арифметическое элементов ниже главной диагонали ',downsr); writeln('квадрат разности средних арифметических значений элементов матрицы ',k); end.
Const file_path = 'c: \users\дети\desktop\абв.txt'; var f: file of char; c: char; begin if not fileexists(file_path) then writeln('такого файла нет') else begin assign(f, file_path); reset(f); while not eof(f) do begin read(f, c); writeln(c); end; close(f); end; readln(); end. не знаю подойдет ли это к вашей версии паскаля делалось на pascalabc.net 3.1.0.1200
Популярно: Информатика
-
pdgudkova26.11.2022 06:31
-
eliseenko94123.09.2022 11:18
-
1Gamzatik117.06.2021 00:22
-
ahmadieva0527.08.2021 12:06
-
123qjfj14.05.2022 04:05
-
Marinap04174415.06.2023 17:05
-
kamfetisova20107.04.2021 11:23
-
Katyakaran03.10.2022 04:59
-
voronavv2016p08wqy18.04.2021 12:46
-
fananenkova10.05.2022 04:14