Заполнить массив из 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.
Еще
Составить программу, запрашивающую радиус окружности и вычисляющую длину окружности и площадь круга Сделать…
запрашивающую радиус окружности и вычисляющую длину окружности и площадь круга Сделать нужно в программе Free Pascal
Ответ на вопрос
program CircleProperties;
var
radius: real;
circumference, area: real;
begin
write('Введите радиус окружности: ');
readln(radius);
circumference := 2 * Pi * radius;
area := Pi * radius * radius;
writeln('Длина окружности:', circumference:0:2);
writeln('Площадь круга:', area:0:2);
end.Программа запрашивает у пользователя радиус окружности, а затем вычисляет длину окружности и площадь круга, используя формулы 2 * Pi * radius и Pi * radius * radius. Результаты выводятся с точностью до двух знаков после запятой.
Еще
Як виглядає структура циклу з післяумовою мовою Free Pascal
Як виглядає структура циклу з післяумовою мовою Free Pascal
Ответ на вопрос
Структура циклу з післяумовою мовою Free Pascal складається з основного тіла циклу, яке виконується певну кількість разів, і блоку коду, який виконується після завершення циклу. Нижче наведений приклад коду циклу з післяумовою мовою Free Pascal:program LoopExample;
var
i: integer;
begin
for i := 1 to 5 do
begin
writeln('Iteration ', i);
end;
writeln('Цикл завершено');
end.У цьому прикладі цикл for виконується від 1 до 5, і для кожної ітерації виводиться повідомлення про поточну ітерацію. Після завершення циклу виводиться повідомлення "Цикл завершено".Це простий приклад структури циклу з післяумовою мовою Free Pascal. Ви можете змінювати умови циклу і блок коду відповідно до вашого завдання.
Еще
Языки программирования
Ишкова. - М.: Бином-Пресс, 2016. - 334 c. 16. Кетков, Ю. Л. Свободное программное обеспечение. FREE PASCAL для студентов и школьников (+ CD) / Ю.Л. Кетков, А.Ю. Кетков. - М.: БХВ-Петербург, 2016. - 376