Нам по информатике задали такое задание, но я не поняла Найти в сети Интернет подходящий инструмент и создать с его облако из слов, характеризующих информатику.
Turbo Pascal USES CRT; VAR A:array[1..100] of integer; i,n,summa:integer;
BEGIN CLRSCR; Randomize;
{Проверяем на размер массива, чтобы не превышал 100} Repeat Writeln('Введите размер массива до 100'); Readln(n); Until n<=100;
{Заполняем массив случайными числами от -50 до 100} For i:=1 to n do begin A[i]:=-50+Random(100); Write(A[i],' '); end;
summa:=0;
{Находим отрицательные элементы массива и складываем} For i:=1 to n do if A[i]<0 then summa:=summa+A[i];
Writeln; Writeln('Сумма отрицательных элементов массива = ',summa);
READLN; END.
kate281078
03.05.2020
Никак этож если ядро 32 ух битное то в 64 ёх битную не переделать, только переустановка по другому ни как, конечно можно какие то там файлики поменять чтоб 4 гига видела, но вот адресовать она их просто не сможет
я жэ говорил что видно 4 гб будет а адресовать 32 ух битка не будет 4 гига, она просто этого сделать не сможет, чтобы она это делала тебе придется математику изменить- но это не возможно как и изменения ядра винды какой смысл, если даже видя все 4 гб, 0.8 гига она всёравно использовать не будет
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Нам по информатике задали такое задание, но я не поняла Найти в сети Интернет подходящий инструмент и создать с его облако из слов, характеризующих информатику.
USES CRT;
VAR A:array[1..100] of integer;
i,n,summa:integer;
BEGIN
CLRSCR;
Randomize;
{Проверяем на размер массива, чтобы не превышал 100}
Repeat
Writeln('Введите размер массива до 100');
Readln(n);
Until n<=100;
{Заполняем массив случайными числами от -50 до 100}
For i:=1 to n do
begin
A[i]:=-50+Random(100);
Write(A[i],' ');
end;
summa:=0;
{Находим отрицательные элементы массива и складываем}
For i:=1 to n do
if A[i]<0 then summa:=summa+A[i];
Writeln;
Writeln('Сумма отрицательных элементов массива = ',summa);
READLN;
END.