ответ: Программа рабочая, проверена.
Program zadacha;
var
a: array [1..50] of integer; // размерность массива = 50
i,k: integer;
begin
begin
for i:=1 to 50 do
a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве
writeln('Заполненный массив: ');
for i:=1 to 50 do
write(a[i],' '); end; // выводим массив на экран до проверки
writeln; //новая строка
writeln('Введите значение числа K: '); readln(k);
writeln('Элементы массива, кратные K:');
for i:=1 to 50 do
if (a[i] mod k = 0) then write(a[i],' ');
end.
Объяснение:
i - порядковый номер элемента
a - сам массив
k - вводимое число
В остальном оставила комментарии.
Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было вопроса о вводе элементов или вводе размерности.
Так как целевой язык не указан и автор вопроса выразил своё безразличие к этому вопросу, то написал пример на С# с использованием возможностей стандартной библиотеки языка.
Код ниже:
using System;
using System.Linq;
using System.Collections.Generic;
namespace Znanium {
public class AnotherOne
{
public static void Main()
{
// Генерация массива
var rand = new Random(); // Инициализируем рандомайзер
int[] arr = (from x in Enumerable.Range(0, 10) // Отсчитываем 10 элементов
select rand.Next(100)) // Генерируем счисло от 0 до 99
.ToArray(); // Делаем из объекта массив
// Печатаем массив на экран
Console.WriteLine("Source array:");
PrintArr(arr);
// Находим максимальный элемент
int maxEl = arr.Max();
Console.WriteLine($"Max element is {maxEl}.");
}
public static void PrintArr(int[] arr) {
Console.Write("[ ");
foreach(var el in arr) {
Console.Write($"{el} ");
}
Console.WriteLine("]");
}
}
}
