ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА pascal ABC.NET 3.8

Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА pascal ABC.NET 3.8

Максим Максимов Ученик (107), на голосовании 2 месяца назад

Помогите написать программу:
Дан массив целых чисел,сформированный случайным образом от 1 до 12. Найти и вывести среди них те, которые являются делителями m, заданного с клавиатуры. На паскаль 3.8

Дополнен 3 месяца назад

2. Дан массив целых чисел. Ко всем положительным элементам массива прибавить их номера, а остальные - удвоить. Вывести исходный и результирующий массивы.
3. Дан одномерный целочисленный массив. Найти наибольший из элементов, стоящих на четных местах. Вывести исходный массив и индекс наибольшего. Если таких элементов несколько - вывести последний.

Answer 1

Нейросети - наши друже

https://www.perplexity.ai/search/pascal-abc-net-3-8-pomogite-na-tINsEtb1RoCbIvkdeWmleA

Answer 2

паскаль это мертвый язык тебе это зачем? на нем никто ничего нормального не делает ну только если в школе учат на нем но бесполезно он никому не нужен (хотя можно на нем что-то сделать)

Answer 3

вот программка по первой ссылке:

uses Arrays;

var
n, m: integer;
a: array of integer;

begin
n := 20; // Размер массива
a := CreateRandomIntegerArray(n, 1, 12); // Заполнение случайными числами от 1 до 12
writeln('Элементы массива: ');
WritelnArray(a); // Вывод массива

writeln('Введите число m: ');
readln(m); // Чтение числа m

writeln('Делители ', m, ' в массиве: ');
foreach var x in a do
if m mod x = 0 then
write(x, ' '); // Вывод делителей
end.