Var a: array [1..100] of integer;
n, i, j: integer;
fout: text;
begin
assign(fout, 'output.txt');
rewrite(fout);
n := 10; //n - длина массива
for i := 1 to n do
a[i] := random(100);
for i := 1 to n do
write(fout, a[i], ' ');
writeln(fout);
j := 1;
for i := 2 to n do
if a[i] > a[j] then
j := i;
writeln(fout, 'max = ', a[j], ' max_ind = ', j);
j := 1;
for i := 2 to n do
if a[i] < a[j] then
j := i;
writeln(fout, 'min = ', a[j], ' min_ind = ', j);
close(fout);
<span>end.</span>
Заметим, что 6 в 7-ичной системе счисления - максимальная цифра, поэтому 666 = 1000 - 1.
666 + 543 = 1000 + 543 - 1 = 1542
Вместо директива "#" используй {$}. Просто от версии зависеть может. И ты begin забыл поставить
⌐(x ⋀ y) ⋁ z (см.картинку)
При составлении таблиц истинности необходимо:
1. Выяснить количество строк в таблице (2^n, где n – количество переменных, + 1(строка под заголовки)).
Здесь 3 переменные: x, y и z
2^3 = 8
8 + 1 = 9 строк
2. Выяснить количество столбцов (количество переменных + количество операций).
Здесь 3 операции:
1. x ⋀ y (промежуточная логическая формула)
2. ⌐(x ⋀ y) (промежуточная логическая формула)
3. ⌐(x ⋀ y) ⋁ z (формула)
Здесь 3 переменные: x, y и z
3 + 3 = 6 столбцов
3. Установить последовательность выполнения логических операций.
Порядок выполнения логических операций в сложном логическом выражении:
1. Инверсия
2. Конъюнкция
3. Дизъюнкция
4. Импликация
5. Эквивалентность
6. Для изменения указанного порядка выполнения операций используются скобки
Здесь порядок выполнения операций:
1. x ⋀ y
2. ⌐(x ⋀ y)
3. ⌐(x ⋀ y) ⋁ z
4. Построить таблицу, указывая названия столбцов и возможные наборы значений исходных логических переменных.
5. Заполнить таблицу истинности по столбцам.