//Пример создания массива и ввода данных в него
program massiv;
var
mas: array[1..10]of integer;
i, j, sum, min, so, kp, k45: integer;
begin
//Ввод с клавиатуры элементов массива
for i := 1 to 10 do
begin write('mas[i', i, ']=');readln(mas[i]); end;
//поиск минимального значения в массиве
min := mas[i]; //предположим
for i := 2 to 10 do
if mas[i] < min then min := mas[i]; //Значит нашли элемент,который ещё меньше
writeln('Минимальный элемент равен ', min);
//Посчитаем количество положительных элементов массива
kp := 0;
for i := 1 to 10 do
if mas[i] > 0 then kp := kp + 1;
writeln('Количество положительных элементов = ', kp);
//узнаем есть ли в массиве числа равные 10
kp := 0; //Преположим,что нет
//Проверим
for i := 1 to 10 do
if mas[i] = 10 then kp := 1;//не 0
if kp = 0 then writeln('В этом массиве нет числа = 10')
else writeln('В этом массиве есть число равное 10');
//Сколько в массиве элементов кратных 4 и 5
k45 := 0;
for i := 1 to 10 do
if (mas[i] mod 4 = 0) or (mas[i] mod 5 = 0) then
k45 := k45 + 1;
writeln('В этом массиве ', k45, ' элементов кратных 4 и 5');
end.