Program output1;
var M:array [1..100] of integer; {ввод целочисленной переменной M, связанная с массивом}
n,i:integer; {ввод целочисленных переменных n,i}
begin
write('Введите количество элементов массива: '); {ввод кол-ва элементов массива}
readln(n);
for i:=1 to n do {начало цикла for с шагом = 1}
readln(M[i]); {считывание переменной M[i]}
writeln('Введённый массив: '); {вывод массива M[i] на печать}
for i:=1 to n do
writeln(M[i]);
end.
625Кбайт=625×1024×8=5120000бит.
5120000÷128000= 40секунд.
Объяснение:
^ не ставится, но выполняет свои действия, у себя его ставьте!
11+1=100
111+1=1000
1111+1=10000
11111+1=100000