Положительного, есть теория по этому)
126 (10) = <span>1111110 (2)</span>
Ответ:
program arr1; // ввод с клавиатуры
var
i: Integer;
a: array [1..10] of integer;
begin
for i := 1 to 10 do begin
Write ('Введите ', i , 'число: ');
ReadLn (a [i]);
end;
for i := 1 to 10 do
Write (a [i], ' ');
ReadLn;
end.
program arr1; // ввод по формуле (I * 2) можно поменять на другую
var
i: Integer;
a: array [1..10] of integer;
begin
Randomize;
for i := 1 to 10 do
a [i] := i * 2;
for i := 1 to 10 do
Write (a [i], ' ');
ReadLn;
end.
program arr1; // ввод рандомом - это то что на скриншоте экрана, только добавлено Randomize; чтобы числа были не всегда одинаковые
var
i: Integer;
a: array [1..10] of integer;
begin
Randomize;
for i := 1 to 10 do
a [i] := Random (50);
for i := 1 to 10 do
Write (a [i], ' ');
ReadLn;
end.
Объяснение:
Ищ микросистем. программ .
1). По назначению (гражданскому или военному): грузовые, легковые, повышенной проходимости, автобусы, спортивные, бронированные, амфибии, самосвалы и т.п.
2). По типу двигателя: бензиновые, газовые, газогенераторные, дизельные, водородные, электромобили.
3). По конструкции: праворульные и леворульные, с ручной или автоматической коробкой передач.
4) По типу кузова: седан, универсал, хэтчбэк, купе, лимузин и т.д.
Все перечисленные множества являются подмножествами множества автомобилей.