Як у квадратній таблиці знайти найбільший і найменший елемент діагоналі?
187
406
Ответы на вопрос:
Const n=20; var f1: text; x: array[1..n] of real; i,k: integer; begin assign(f1,'f1.txt'); reset(f1); i: =0; k: =0; while not eof(f1) do begin i: =i+1; read(f1,x[i]); if (x[i]> =0)and(x[i]< =1) then k: =k+1; end; close(f1); writeln('k = ',k); end. пример (для i=1, 10): файл f1.txt: 0.56 1.62 -0.27 1.44 -1.47 0.74 -1.82 -1.80 -1.76 0.72 результат работы программы: k = 3
Популярно: Информатика
-
mainaalikuliev21.08.2021 02:21
-
Oks09903.07.2020 17:22
-
slavabancov06.03.2023 16:46
-
asdfghjkl11511.03.2021 20:35
-
hide226.02.2022 21:41
-
BOLYUBASH133706.06.2020 04:48
-
rinatabd124.01.2020 23:11
-
Полина5615.06.2023 16:32
-
lehfff11.06.2020 19:47
-
Dobriyboy09.03.2020 07:11