Максимальное кол-во — 4 байта = 32 бита
Ответ: 32
Ответ:
program arraysum;
const
D = 30; // размерность массива, можно менять на любое другое
var
B: array [1..D] of Integer;
i, s, c, A: Integer;
begin
Write ('A = ');
ReadLn (A);
Write ('Введите массив из 30 элементов:');
for i := 1 to D do begin
ReadLn (B [i]);
end;
// Randomize; // это заполнение случайными числами можно для отладки раскоментарить
// for i := 1 to D do begin
// B [i] := Random (21) - 5;
// Write (B [i] :3, ' ');
// end;
s := 0;
c := 0;
for i := 1 to D do begin
if B [i] < 0 then
s := s + B [i];
if (B [i] > 0) and (B [i] < A) then
Inc (c);
end;
WriteLn;
WriteLn ('Сумма отрицательных чисел =', s);
WriteLn ('Количество положительных меньших ', A, ' = ', c);
ReadLn;
end.
1. Из 10-ой СС в 2-ую СС.
112 = 1110000
65 = 1000001
2. Из 10-ой СС в 8-ую СС.
45 = 55
123 = 173
3. Из 10-ой СС в 16-ую СС.
168 = A8
Программа:
clear
dimension b[20]
for=1 to 20
b[i]=val(inputbox("значения B"))
endfor
max=b[1]
for i=1 to 20
if b[i]>max
max=b[i]
n=i
endif
endfor
?max,n
блок схему сами сделайте по программе
//Дам блок-схему и код на Паскале
//Pascal ABC.NET v3.0 сборка 1111
var
r,v,s:real;
begin
readln(r);
v:=4/3*pi*power(r,3);
s:=3/4*pi*sqr(r);
writeln('V=',v,' S=',s);
end.