Pascal. составьте программу замены местами в массиве b(n) первого положительного и минимального элементов. заранее

Program gt; var  b: array[1..100]of integer; r,i,n,q,min,t: integer; begin read(n); q: =0; for i: =1 to n do begin read(b[i]); if(b[i]> 0)then begin q: =q+1; if(q=1)then begin r: =i; t: =b[i]; end; end; end; min: =b[1]; for i: =2 to n do if(b[i]< min)then min: =b[i]; for i: =1 to n do begin if(b[i]=min)then b[i]: =t; if(i=r)then b[i]: =min; write(b[i],' '); end; end.

Ахах короче я не знаю что там происходит с этим человеком и Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет

Поздравляю с др!

Я тебе жалаю всего самого наилучшего !

С 13 - ти летия тебя!

Поздравляю☺️! Подарок передам когда приеду☺️)Привет

Поздравляю с др!

Я тебе жалаю всего самого наилучшего !

С 13 - ти летия тебя!

Поздравляю☺️! Подарок передам когда приеду☺️)Привет

Поздравляю с др!

Я тебе жалаю всего самого наилучшего !

С 13 - ти летия тебя!

Поздравляю☺️! Подарок передам когда приеду☺️)Привет

Поздравляю с др!

Я тебе жалаю всего самого наилучшего !

С 13 - ти летия тебя!

Поздравляю☺️! Подарок передам когда приеду☺️)Привет

Поздравляю с др!

Я тебе жалаю всего самого наилучшего !

С 13 - ти летия тебя!

Поздравляю☺️! Подарок передам когда приеду☺️)Привет

Поздравляю с др!

Я тебе жалаю всего самого наилучшего !

С 13 - ти летия тебя!

Поздравляю☺️! Подарок передам когда приеду☺️)Привет

Поздравляю с др!

Я тебе жалаю всего самого наилучшего !

С 13 - ти летия тебя!

Поздравляю☺️! Подарок передам когда приеду☺️)Привет

Поздравляю с др!

Я тебе жалаю всего самого наилучшего !

С 13 - ти летия тебя!

Поздравляю☺️! Подарок передам когда приеду☺️)Привет

Поздравляю с др!

Я тебе жалаю всего самого наилучшего !

С 13 - ти летия тебя!

Поздравляю☺️! Подарок передам когда приеду☺️)Привет

Поздравляю с др!

Я тебе жалаю всего самого наилучшего !

С 13 - ти летия тебя!

Поздравляю☺️! Подарок передам когда приеду☺️)Привет

Поздравляю с др!

Я тебе жалаю всего самого наилучшего

Объяснение:

При составлении таблиц истинности необходимо:

1. Выяснить количество строк в таблице (=2n, где n – количество переменных).

2. Выяснить количество столбцов (= количество переменных + количество операций).

3. Установить последовательность выполнения логических операций.

4. Построить таблицу, указывая названия столбцов и возможные наборы значений исходных логических переменных.

5. Заполнить таблицу истинности по столбцам.

Задание 1. Построим таблицу истинности для выражения: F = (A v B) & (¬ A v ¬ B)

1. Определим количество строк =2n = 22+1 =5

2. Определим количество столбцов = 2 переменные + 5 операций = 7

3. Расставим порядок выполнения операций: 1 3 5 4 2

4. Заполним таблицу по столбцам:

А

В

A v B

¬ A

¬ B

¬ A v ¬ B

(A v B) & (¬ A v ¬ B)

0 0 0 1 1 1 0

0 1 1 1 0 1 1

1 0 1 0 1 1 1

1 1 1 0 0 0 0

Задание 2. Построить таблицу истинности логического выражения F = (A & Ø B) ˅ (Ø A & B)

Задание 3. Построить таблицу истинности логического выражения F = X v Y & ¬ Z

X

Y

Z

¬ Z

Y & ¬ Z

F = X v Y & ¬ Z

0 0 0 1 0 0

0 0 1 0 0 0

0 1 0 1 1 1

0 1 1 0 0 0

1 0 0 1 0 1

1 0 1 0 0 1

1 1 0 1 1 1

1 1 1 0 0 1