Function Min(a,b : Integer) : Integer;
Begin
If a<b then Min:=a else Min:=b;
end;
Var x,y,z : Integer;
Begin
Readln(x,y,z);
Writeln(Min(Min(x,y),z));
end.
1 - регистр
2 - кэш
3 - SSD
4 - HDD
5 - Ethernet
6 - WiFi
Вроде бы так... подправь если что)
uses crt;
const N=10;
var i,p:integer; a:array[1..N] of integer; {кол эл массива }
begin
p:=0;
writeln('введите исходный массив');
for i:=1 to N do {цикл по кол э}
begin
write('a[',i,']='); readln(a[i]); {ввод эл массива}
if (a[i] mod 2)=0 then p:=p+1;
end;
write('p='); writeln(p);
readln
end.
А B не А А и В А и В или не А
0 0 1 0 1
0 1 1 0 1
1 0 0 0 0
1 1 0 1 1