<span>Как описывается одномерный массив? - A[i]
</span>
<span><span>Как осуществляется ввод и вывод одномерных массивов?-
Write (Введеное число элементов)</span>
</span>Read(n)
Fori=tondo ====\/
Read(a[i]) это и то ввод элементов массива
Write[n]
For[i]=1tondo0
Write(a[i]4) вывод элементов массива
Создавать,перемещать,копировать,удалять, переименовать,создавать ссылки на них отправить.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Var
ar:array[1..n] of integer;
i,j,c:integer;
begin
randomize;
readln(c);
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (ar[i]>ar[j]) and (ar[i]<0) and (ar[j]<0) and (ar[i] mod c=0) and (ar[j] mod c=0) then swap(ar[i],ar[j]);
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример ввода:
2
Пример вывода:
Array:
-7 3 9 -2 7 -7 3 -6 -6 -3
Final array:
-7 3 9 -6 7 -7 3 -6 -2 -3
Всмысле полное, моделируешь дорогу, если тебе по таблице не удобно, там все видно будет. Самый короткий 4
AE-EC-CD
В двух словах - поиск таких элементов А которые не встречаются в векторе С
как делается
пробегаем по вектору А
при каждом новом элементе обнуляем флаг К
продегаем по вектору С
сравниваем текущий элемент А с текущим элементом С
если равны, то меняем флаг К на 1
когда текущий элемент А сравнили со всеми элементами С и флаг К остался нулем, то значит не нашли равных и выводим значение текущего элемента А на экран
и тд