Ввести одномерный массив А, состоящий из целых чисел, вывести его.Найти номер К- номер первого чётного элемента массива .Преобразовать последние К элементов массива путём их умножения на значение первого четного. Если преобразование не возможно, то вывести соответствующее сообщение.
Идеи?
const Nmass=100;
Var A:array[1..Nmass] of integer;
i,N,k:byte;
begin
writeln('введите число элементов в массиве A');
readln(N);
writeln('вводим элементы массива A:');
for i:=1 to N do
begin
write('A[',i,']=');
readln(A [i]);
end;
writeln('Исходный массив A:');
for i:=1 to N do
write ( A[i]:5);
writeln;
for i:=1 to N do
а как обозначить последние k элементы( у меня это последние 3 элемента) в программе?
Прогоняете в цикле массив, начиная с первого элемента, и проверяете их на четность, как только найдете первый четный, цикл можно завершить. Если четный элемент не будет обнаружен, то выводите соответствующее сообщение, иначе, начиная с последнего элемента, К элементов умножаете на A[K].
for i:=N downto N-K+1 do begin
A[i]:=A[i]*A[K];
end;
спасибо большое)
Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)