program xxx;
var i, k : integer;
a : array [1..10] of real;
begin
write('введите элементы массива А:');
for i:=1 to 10 do
readln(a[i]);
writeln('исходный массив А:');
for i:=1 to 10 do
write(a[i]);
k:=0;
for i:=1 to 9 do
if a[i]<>a[10] then k:=k+1;
writeln('элементов отдичных от последнего -', k);
readln
end.
Потребительский кредит - кредит, предоставляемый непосредственно гражданам или домашним хозяйствам для приобретения предметов потребления
A B C notA notA&B A=>C (notA&B)or(A=>C)
0 0 0 1 0 1 1
0 0 1 1 0 1 1
0 1 0 1 1 1 1
0 1 1 1 1 1 1
1 0 0 0 0 0 0
1 0 1 0 0 1 1
1 1 0 0 0 0 0
1 1 1 0 0 1 1
Папка)))))))))))))))))))))
Монитор (т); Е; клавиатура (к); сканер (с); принтер (т)
текст (Г)