var
A: array of Integer; // объявление динамического массива
i: Integer;
begin
i := 0;
while True do begin
SetLength (A, i + 1); // установить новый размер массива
Write ('Введите новое значение массива: ');
ReadLn (A [i]);
if A [i] = 2 then
Break;
Inc (i);
end;
Write ('Элементы массива, возведенные в квадрат: ');
for i := 0 to High (A) do
Write (IntToStr (A [i] * A [i]) + ' ');
WriteLn;
WriteLn ('Количество элементов: ' + IntToStr (i));
end;
Любой материальный объект или среда, используемый человеком, способный достаточно длительное время сохранять в своей структуре занесённую на него информацию<span>, без использования дополнительных устройств.</span>
Озу достаточно для новинок,если конечно чистота 2166. процессор потянет на минималках самые топ игры, лучше видюху поменять 2 гб на видюхе это уже мало в 2к19