var a:array of integer;
i,n,k:integer;
begin
write('Введите количество элементов массива: ');
readln (n);
a:=new integer[n];
write ('Массив: ');
for i:=0 to n-1 do
begin
a[i]:=random(199)-99;
if a[i] < 0 then k:=k+1;
write (a[i]:5);
end;
writeln;
write ('Количество отрицательных элементов ',k)
end.
Воть копируй, файл
Мне нужно 20 символов, это для того, чтобы они были
Ответ:
program abc;
var m,o,k:int64;
begin
readLn(m);
o:=2000000000;
for i:integer:=trunc(sqrt(m))+1 downto 1 do
if (o>m div sqr(i)) and (m mod sqr(i) = 0) then
begin
o:=m div sqr(i);
k:=sqr(i);
end;
writeLn(k);
end.
Объяснение:
Компьютерная память является одним из наиболее главных вопросов устройства компьютера, так как является важнейшей частью его устройства, а именно, компьютерная память обеспечивает поддержку одной из наиважнейшей функций современного компьютера, - способность длительного хранения информации.
Вместе с центральным процессором запоминающее устройство являются ключевыми звеньями.
Все персональные компьютеры используют три вида памяти: оперативную, постоянную и внешнюю (различные накопители).
Также компьютерная память классифицируется по различным признакам.
В данной работе рассмотрим понятия компьютерной памяти, ее виды и классификации в теоретическом и практическом контекстах.