Программа отключения флэшки на Lazarus
задание контрольной работы: Используя среду программирования Free Pascal разработать программу, останавливающую только Вашу флешку для безопасного извлечения её из разъёма. Программа может быть выполнена
Заполнить массив из 15 элементов случайных целых чисел из диапазона [-15;+17]. Вывести его на экран. Определить…
четных элементов. В этом же массиве найти максимальный отрицательный Элемент. Выполнить работу в free pascal
Ответ на вопрос
program RandomArray;var
arr: array[1..15] of integer;
i, evenCount, maxNegative: integer;begin
randomize;
evenCount := 0;
maxNegative := 0;// Заполнение массива случайными числами и подсчет четных элементов
for i := 1 to 15 do
begin
arr[i] := random(33) - 15;
if arr[i] mod 2 = 0 then
evenCount := evenCount + 1;
writeln('arr[', i, '] = ', arr[i]);
end;// Поиск максимального отрицательного элемента
for i := 1 to 15 do
begin
if (arr[i] < 0) and (arr[i] < maxNegative) then
maxNegative := arr[i];
end;writeln('Количество четных элементов: ', evenCount);
writeln('Максимальный отрицательный элемент: ', maxNegative);
end.
Еще