Uses crt; var a:array[1..10]of integer; b:array[1..10]of integer; max,i,c,k:integer; beginfor i:=1 to 10 do a[i]:=random(20)-10; for i:=1 to 10 do if abs(a[i])>abs(max) then begin max:=a[i]; c:=i; end; for i:=1 to 10 do if (a[i]=max)and(i<>c) then begin b[i]:=i; k:=k+1; end; writeln('максимальный элемент по модулю=(',max,') номер этого элемента=(',c,')'); write('номера таких же элементов: '); for i:=1 to 10 do if b[i]>0 thenwrite(b[i],' '); writeln('их кол-во:(',k,')'); writeln; for i:=1 to 10 do write(a[i],' ') end.
Импликацию часто по-другому называют "Следование". Т.е. из выражения a следует выражение b. Основные правила импликации, где 0 - ложь, 1 - истина. Импликация ложна тогда и только тогда, когда из истины следует ложь. А теперь так, как когда-то объясняли мне: 1) 1->1 = 1 Из истины следует истина. То есть из истинного факта (а) следует (или же мы делаем) справедливый истинный вывод(b). Все в порядке. Справедливо. Получаем 1 (истину) после операции импикации.
2) 0->1 = 1 Из неправильного высказывания (a) мы делаем правильный вывод(b). С этим тоже все в порядке, множество научных открытий делалось по принципу "из ошибочного суждения - верная теория". Бывает. Справедливо. Получаем истину.
3) 0->0 = 1 Из ложного высказывания (a) - ложные "выводы"(b) , тоже все в порядке. Логично, что из одной "лжи", у нас вторая "ложь". Справедливо. Получаем иситну.
4) 1->0 = 0 Из истинного высказывания (a) получаем ложное высказывание (b). Т.е. мы взяли и переврали истину непонятно как. Нехорошо и не справедливо. Получаем ложь:(
Если остались вопросы, или вообще никак не в комментарии:)
2x+5=7
2x=7-5
2x=2
x=2:2
x=1
2х+а=с а=-15, с= 105
2x+(-15)=105
2x-15=105
2x=105+15
2x=120
x=120:2
x=60