Program test; var a: array of integer; b: array of integer; c: array of integer; aa, bb, cc: integer; begin writeln('Введите размер массива a'); readln(aa); writeln('Введите размер массива b'); readln(bb); a := new integer[aa]; b := new integer[bb]; c := new integer[aa + bb]; cc := 0; aa := 0; bb := 0; writeln('Заполнение массива a'); while(aa < Length(a)) do begin readln(a[aa]); aa := aa + 1; end; writeln('Заполнение массива b'); while(bb < Length(b)) do begin readln(b[bb]); bb := bb + 1; end; while(cc < Length(c)) do begin if(cc < Length(a)) then begin c[cc] := a[cc] end else begin c[cc] := b[cc - Length(a)]; end; cc := cc + 1; end; writeln('Полученный массив'); cc:=0; while(cc < Length(c)) do begin writeln(c[cc]); cc:=cc+1; end;end.
Отвечу на первый вопрос (всё-таки по правилам сайта вы должны задавать одно задание, иначе просто и вряд ли кто возьмётся, и решать будут долго, и ответ займёт кучу места).
Расставим в порядке убывания количества информации: 1) терабайт -это 1024 гигабайта (2^40 байт) 2) гигабайт -это 1024 мегабайта (2^30 байт) 3) мегабайт -это 1024 килобайта (2^20 байт) 4) килобайт -это 1024 байта (2^10 байт) 5) байт -состоит из 8 бит (8 двоичных разрядов) 6) бит и двоичный разряд -в них равное количество информации (это минимальное количество информации; бит может находится в двух различных состояниях, обозначаемых как ноль и единица)
===== PascalABC.NET =====
begin
var a := ArrRandom(10, -99, 99);
a.Println;
Println('Четных:', a.Count(p -> p.IsEven));
Println ('Произведение ненулевых равно',
a.Where(p -> p <> 0)
.Aggregate(BigInteger.One, (u, v) -> u * v))
end.