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). Т.е. мы взяли и переврали истину непонятно как. Нехорошо и не справедливо. Получаем ложь:(
Если остались вопросы, или вообще никак не в комментарии:)
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.