Помощь - Поиск - Пользователи - Календарь
Полная версия: 3 массива
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
jmih
Кто-нибудь может помочь с задачкой ?
Цитата
Как сформировать одномерный массив С, содержащий элементы массива А с четными номерами, которых нет в массиве В.

Всё . Эту задачку я смог решить.

Uses Crt ;
{Описание переменных}
Var
A: Array[1..20] of Integer;
B: Array[1..20] of Integer;
C: Array[1..20] of Integer;
n,i,j,k:Integer;
Begin
ClrScr;
Writeln('Количество элементов массива - целое число <=20');
{Ввод значения переменной N}
Readln (N);
{If (N>=1) and ( N<=20) then }
{begin }

{Значение переменной N задано верно}

Writeln('Значения элементов массива - целые числа. Введите массив А');
{Ввод значений элементов массива A}
For I := 1 to N do
Begin
Write('A[',I,']=');
Readln(A[I]);
End;
Writeln('Значения элементов массива - целые числа. Введите массив B');
{Ввод значений элементов массива B}
For I := 1 to N do
Begin
Write('B[',I,']=');
Readln(B[I]);
End;
j:=0;
For i:=1 to n do
Begin
if (a[i]<>b[i]) then
begin
c[j+1]:=a[i];
j:=j+1
end
else
End;



а кто-нибудь может сказать ,как сделать , чтобы элементы в массиве С не повторялись, то есть были уникальными?
hiv
Цитата(jmih @ 28.12.2006 8:11) *
а кто-нибудь может сказать ,как сделать , чтобы элементы в массиве С не повторялись, то есть были уникальными?

См. задание
Цитата
Как сформировать одномерный массив С, содержащий элементы массива А с четными номерами, которых нет в массиве В.
Теперь при вставке значений в массив А проверяй не только что их нет в массиве В, но и в массиве А.
Michael_Rybak
Цитата
но и в массиве А.


но и в массиве С.
hiv
Цитата(Michael_Rybak @ 28.12.2006 11:41) *

но и в массиве С.

Правильно. Это я запутался в трех соснах. Извините...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.