Вопрос по информатике:
Дан одномерный целочисленный массив размерностью N. Сформировать новый массив из элементов исходного, кратных заданному числу а и больших по модулю их
индекса. Если такие элементы отсутствуют, то выдать об этом сообщение. паскаль
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.09.2018 20:48
- Информатика
- remove_red_eye 14848
- thumb_up 8
Ответы и объяснения 1
Const n = 10;
var
b: array[1..n] of integer;
c: array[1..n] of integer;
i, a, k: integer;
begin
//считываем массив b
for i:=1 to n do
readln(b[i]);
//вводим a
readln(a);
k:=0;
for i:=1 to n do
//если элемент кратен А и по модулю больше I то
if (b[i] mod a = 0) and (abs(b[i]) > i) then
begin
//увеличиваем k на 1 и присваиваем c[k] a[i]
inc(k);
c[k] := b[i];
end;
if k = 0 then
writeln('Таких элементов нет')
else
for i:=1 to k do
writeln(c[k]);
end.
- 08.09.2018 11:46
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.