Построить таблицу истинности следующего логического выражения:
F = ¬ (A & B) | (¬A & B) | B
211
291
Ответы на вопрос:
Const n = 13; type mass = array[1..n] of real; var f: file of real; a: mass; max: integer; procedure cf(f: file of real); begin assign(f,'file.real'); rewrite(f); for var i: = 1 to n do write(f,n*(random-random)) end; procedure rf(f: file of real; var a: mass; var max: integer); var i: integer; begin reset(f); write('исходный массив: '); max: =1; for i: = 1 to n do begin read(f,a[i]); write(' ',a[i]: 0: 3); if a[i] > a[max] then max: =i; end; writeln; end; begin cf(f); rf(f,a,max); writeln('max = a[',max,'] = ',a[max]: 0: 3); end. пример работы программы: исходный массив: 8.731 1.629 1.482 9.547 3.067 -3.207 9.701 -2.065 -0.447 -0.980 -4.818 -0.603 -2.742 max = a[7] = 9.701
Популярно: Информатика
-
Ksu2k1708.09.2020 14:15
-
сабина41911.02.2022 00:22
-
akakkakksksak22.07.2020 14:11
-
nikitaursu1113.05.2023 16:09
-
Акося355730.08.2021 23:46
-
ИванГо22816.12.2020 03:58
-
ainexl12.11.2020 09:57
-
rasolcheatnet12.10.2021 03:32
-
blablabla11416.05.2023 17:44
-
veronikamarina2006217.02.2021 20:51