Массив сформирован следующим образом. for i :=1 to 5 do

begin

a[2*i-1] := i;

a[2*i] := i * i

end;

Какие значение будут присвоены элементам массива?

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

Если остались вопросы, или вообще никак не в комментарии:)