1)
var max, min, i, n : integer;
a : array [1..255] of integer;
BEGIN
// ввод массива
read(n);
for i := 1 to n do
read(a[i]);
// то, что в блок-схеме
max := a[1]; min := a[1];
for i := 2 to n do begin
if a[i] < min then
min := a[i]
else if a[i] > max then
max := a[i];
end;
write(min, ' ', max);
END.
2) Если k - это любое число >= 1, то значения элементов массива сдвинутся на 1 влево. К примеру, если k = 1, то a[1] = 12, a[2] = 5, a[3] = 8 и так далее
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
int n, multi = 1;
cout << "Input n: "; cin >> n;
for(int i = 1; i < n; i++){
if(i % 2 == 0){
multi *= i;
}
}
cout <<"Multi all even numbers: " << multi << endl;
system("pause");
return 0;
}
Как понял. Задаешь два вектора. И начинаешь сравнивать значения первого вектора, со значениями второго. Если какие то значения окажутся равными. то записать какой слот они занимают в первом векторе. После проверки всех чисел, удалить запомненные слоты в первом векторе
//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandomInteger(50, -50, 50);
writeln('[x < 0] = ', a.Where(x -> x < 0).Count);
writeln('[x > 0] = ', a.Where(x -> x > 0).Count);
writeln('[x = 0] = ', a.Where(x -> x = 0).Count);
end.
Формула Хартли.
2^6 = 64.
2^4 = 16.
В каждом взвешивании мы уменьшаем неопределенность информации в два раза. То есть тут количество попыток будет битами сообщения.
Ответ: 80.