some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text
Примеры?
Дискета
Жесткий диск
Компакт-диск
Карта памяти
Флешка
Кассета
Пластинка
Перфокарта
Можно долго продолжать этот список...
var
a: array of integer;
n, i: integer;
begin
randomize;
write('Введите размерность массива: ');
readln(n);
Setlength(a, n);
writeln('Массив: ');
for i := 0 to n - 1 do
begin
a[i] := random(21) - 10;
write(a[i]:5);
end;
writeln;
writeln('Результат деления отрицательных элементов на 2: ');
for i := 0 to n - 1 do
begin
if a[i] < 0 then write(a[i] / 2:5)
else write(a[i]:5)
end;
<span>end.</span>
Это слово "обеспечение" ежу понятно.