Запишите математическое выражение "сумма чисел 3 и 5, возведенная в степень 2" на языке Паскаль
267
353
Ответы на вопрос:
Var a: array[,] of real; b: array of real; i,j,ind,n,m: integer; p,s: real; begin write('размерность массива: n m '); readln(n,m); writeln('массив: '); setlength(a,n+1,m+1); setlength(b,n+1); randomize; for i: =1 to n do begin p: =1; s: =0; for j: =1 to m do begin a[i,j]: =random(-50,50)/100; write(a[i,j]: 6: 2); if a[i,j]< 0 then begin p: =p*a[i,j]; s: =1; end; end; if s> 0 then b[i]: =p else b[i]: =0; writeln; end; s: =b[1]; ind: =1; writeln('новый массив: '); for i: =1 to n do begin write(b[i]: 8: 4); if b[i]< s then begin ind: =i; s: =b[i]; end; end; writeln; writeln('индекс минимального элемента в новом массиве: ',ind); end.размерность массива: n m 4 3 массив: -0.04 0.21 0.14 0.00 -0.38 -0.05 -0.29 0.12 0.12 0.15 -0.16 0.37 новый массив: -0.0400 0.0190 -0.2900 -0.1600 индекс минимального элемента в новом массиве: 3
Популярно: Информатика
-
nikita01127892315.11.2020 14:40
-
Mastl12.08.2022 21:31
-
Malinka44028.03.2023 02:48
-
murka28070508.10.2021 08:52
-
urmanovae198311.08.2021 22:56
-
Sanisle01.10.2022 13:46
-
someone568205.12.2021 10:45
-
McКлей05.11.2020 05:46
-
needhelpneedhelp15.09.2021 12:14
-
alinkamalina0416.12.2022 13:13