<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if n<9 then n:=9; // от дурака
var d:=ArrRandom(n,-50,50);
Write('Исходный массив: '); d.Println;
var i:=1;
repeat
d[i]*=2; i+=2
until i>n-1;
Write(' После удвоения: '); d.Println;
d:=d[:1]+d[2:8]+d[9:];
Write(' После удаления: '); d.Println
end.
<u>Пример</u>
n= 15
Исходный массив: -13 -33 48 -47 -9 19 -21 45 10 -4 -30 40 -31 0 -2
После удвоения: -13 -66 48 -94 -9 38 -21 90 10 -8 -30 80 -31 0 -2
После удаления: -13 48 -94 -9 38 -21 90 -8 -30 80 -31 0 -2
1. Зависит от версии языка. Как размер, так и размерность. Например, в PascalABC.NET и размер и размерность практически ничем не ограничены, а в ТурбоПаскаль массив не мог занимать больше 65520 байт.
2. Одномерный массив - массив имеющий одно измерение, т.е. его элементы имеют один индекс. Никакого вектора в паскале нет.
3. Доступ к элементу массива осуществляется по его порядковому номеру в массиве, названному индексом.
4. Массивы данных в программе на паскале можно формировать путем задания значений элементов непосредестенно при описании, путем ввода значений с клавиатуры или чтения из файла, путем присваивания элементам значения в цикле и т.д.
Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.
Program massivy;
var array1: array [1..10] of integer;
i, b:integer;
begin
for i:=1 to 10 do
array1[i]:=random(-10, 10);
for i:=1 to 4 do begin
for b:=1 to 4 do
if array1[b] > array1[b+1] then
swap(array1[b], array1[b+1]);
end;
for i:=5 to 9 do begin
for b:=5 to 9 do
if array1[b] < array1[b+1] then
swap(array1[b], array1[b+1]);
end;
for i:=1 to 10 do
writeln(array1[i]);
end.
А)1. наливаем 8л (0_8)
2. выливаем 8л в 3л (3_5)
3. выливаем из 3л (0_5)
4. выливаем из 8л (3_2)
5. выливаем из 3л (0_2)
6. выливаем из 8л в 3л (2_0)
7. наливаем в 8л (2_8)
8. выливаем из 8л в 3л (3_7)
б) нет
