Напишите три программы одномерного массива, тремя способами: с вводом через клавиатуры, через формулу, рандомом. кто шарит в этой теме, я дилетант.

206

231

Посмотреть ответы 2

Ответы на вопрос:

Aminabr

Информатика

4,5(28 оценок)

ответ:

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.

объяснение:

w0mk

Информатика

4,5(41 оценок)

сначала переводим 8-чное число 5237 в двоичное = 5237(8) = 1010100(2). дальше справа налево проставляем в даоичном числе числа, начиная с нуля:

1010100

11 10 9 8 7 6 5 4 3 2 1 0 (на фото лучше было бы видно, сорри). и если на каком-то месте стоит 1, то возводим 2 в соотвествующую степень. получаем 2^11 + 2^9 + 2^7 + 2^4 + 2^3 + 2^2 + 2^1 + 2^0 = 2719(10)