Надеюсь дальше сам поймёшь http://mabi.vspu.ru/files/2016/05/0003-003-Tablitsy-istinnosti-logicheskikh-operatsij.jpg
//PascalABC.NET 3.2 сборка 1318
Var
ar:array of integer;
i,n,min,k:integer;
begin
readln(n);
setlength(ar,n);
min:=integer.MaxValue;
for i:=0 to n-1 do
begin
readln(ar[i]);
if min>ar[i] then min:=ar[i];
end;
for i:=0 to n-1 do
if ar[i]=min then inc(k);
writeln(k);
end.
Пример ввода:
3
1
2
1
Пример вывода:
2
(1 v 1) v (1 v 0)=1(истина)
((1 v 0) v 1) v 1)=1(истина)
((0 & 0) v 0 ) & (1 v 1)=0(ложь)
2. 8 и 10
Х - только паскаль,
y - паскаль+бейсик,
z - только бейсик.
x+y+z = 35,
x+y=25,
y+z=22.
И решаем эту системку.
Вычтем из первого третье
x=35-22=13
И это ответ :)
Только на паскале программируют 13 человек.
Привет, это очень легко, смотри ты выделяешь тебе нужные строки и там есть значок автосумма, выклядит почти как зет, или немного на м похожа но прямая, рядом есть стрелочка жми и найдешь среднее и жми