1.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
sum:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>7) then begin a[i]:=7; sum:=sum+1; end;
end;
writeln(' ',sum);
end.
2. смысл задания? 10/2=5 или индексами ты имела ввиду значениями?
3.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
naib:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>naib) then naib:=a[i];
end;
writeln(' ',naib);
end.
#include<iostream>
#include<conio.h>
using namespace std;
int main() {
const int n = 5;
float arr[n],A=0.0,B;
for (int i = 0;i < n;i++) {
cin >> arr[i];
}
B = arr[0];
for (int i = 0;i < n;i++) {
if (arr[i] > A) {
A = arr[i];
}
if (arr[i] < B) {
B = arr[i];
}
}
cout << "A= " << A << endl;
cout << "B = " << B << endl;
cout << " A + B = " << A + B << endl;
cout << " A - B = " << A - B << endl;
_getche();
return 0;
}
p1=0,5=1/2
p2=0,25=1/4
p3=0,25=1/4
I =-(log2 1/2)/2 -(log2 1/4)/4 -(log2 1/4)/4=1/2+1/2+1/2=3/2=1,5(бит)
2)
64=2^6 ---> 6 бит
128=2^7 ---> 7 бит