<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
var s := a.Partition((v, i) -> i.IsEven);
s[0].Println;
s[1].Println;
end.
<h2>n= 10</h2><h2>24 31 -29 -21 32 23 -17 34 16 -25</h2><h2>24 -29 32 -17 16</h2><h2>31 -21 23 34 -25</h2>
всего точек: 52 * 52 = 2704
т.к. изображение черно-белое (без градаций серого), имеет 2 цвета, то 2¹ = 2, одна точка — это один бит
объем памяти: 2704 * 1 = 2704 бит = 338 байт
1)Сколько информации в себя вмещает одна ячейка памяти? (вопрос с подвохом, т.к. существуют разные ячейки от 8 бит и дальше)
2)Основная функция ЭВМ? (это есть принцип программного управления)
3)Что такое разрядность микропроцессора? (<span>количество битов, которое воспринимается микропроцессором как единое целое, грубо говоря, одна ячейка)
</span>4)Чем различаются микропроцессоры? (Разрядность и частота)
5)Какие устройства относят к манипуляторам? (мышки, джойстики, планшеты)
6)Как называется жесткий диск компьютера? (винчестер)
7)Оперативная память это совокупность чего? (специальных электронных ячеек)
8) Дискеты предназначены для:...? (обмена программами и данными между различными ПК, хранения архивной информации, запасных копий программ.)
9)Каковы основные функции операционной системы? (диалог с пользователем, управление ресурсами компьютера, запуск программ на выполнение)
Ну, выбирай)))
больше не придумаю =)
program p1;
uses Crt;
var
i, n, m, min: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(min);
for i := 2 to n do
begin
Read(m);
if m < min then
min := m;
end;
Writeln(min);
ReadKey;
end.
******************************************
program p2;
uses Crt;
var
i, n, m, max, k: integer;
begin
ClrScr;
Write('Длина последовательности: ');
Readln(n);
Read(max);
k := 1;
for i := 2 to n do
begin
Read(m);
if m > max then
begin
max := m;
k := 1;
end
else if m = max then
k := k + 1;
end;
Writeln(k);
ReadKey;
end.
