Поделитесь своими знаниями, ответьте на вопрос:
Решается оценка 1-6 и вариант 7 1. запишите в натуральное число в 8-битную ячейку памяти. число 103 2. запишите в отрицательное целое число в 8-битную ячейку памяти. число - 66 3. какое число получится если сложить два числа, в , в 8-битной арифметике без знака? 4. какое число получится если сложить два числа, в , в 8-битной арифметике со знаком? 5. *какое число получится если сложить два числа, в , в 16-битной арифметике без знака? 6. *какое число получится если сложить два числа, в , в 16-битной арифметике со знаком?
const
n=40;
var
a:array [1..n] of integer;
i,k:integer;
begin
Randomize;
k:=0;
Writeln('Исходный массив');
for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end;
Writeln; Writeln('Четные элементы, кратные 3');
for i:=1 to n do
if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end;
Writeln; Writeln('Отобрано элементов: ',k)
end.
Пример
Исходный массив
43 49 27 45 57 20 54 22 74 79 57 64 30 41 67 58 36 68 79 46 28 74 61 21 80 57 50 24 80 36 27 57 38 38 41 71 50 69 39 48
Четные элементы, кратные 3
54 30 36 24 36 48
Отобрано элементов: 6
2)
const
n=20;
var
a:array [1..n] of integer;
i,imin:integer;
begin
Randomize;
Writeln('Исходный массив');
imin:=1;
for i:=1 to n do begin
a[i]:=random(351)+20;
Write(a[i],' ');
if a[i]<a[imin] then imin:=i
end;
Writeln;
Writeln('Минимальный элемент a[',imin,']=',a[imin])
end.
Пример
Исходный массив
292 54 248 310 181 210 263 284 255 156 177 340 173 39 108 144 270 40 318 155
Минимальный элемент a[14]=39