Вопрос Записать программу на языке паскаль с дружеским интерфейсом для решения задачи:

[limpopo23]

Записать программу на языке Паскаль с дружеским интерфейсом для решения задачи:

    Найти количество и  сумму элементов массива случайных чисел кратных 5 в диапазоне от 10 до 85, если в этом массиве 15 элементов.

Программу протестировать три раза!

 

[mak-998]

program task;
uses crt;
var
a: array [1..15] of integer;
i, sum, count: integer;
begin
randomize;
sum := 0;
count := 0;
for i := 1 to 15 do
begin
a := random(76) + 10;
if (a mod 5 = 0) then
begin
sum := sum + a;
count := count + 1;
end;
writeln(a);
end;
writeln('Количество элементов массива кратных пяти:', count);
writeln('Сумма элементов массива кратных пяти:', sum);
end.

 

[Darguss]

и что сложного?

 

[Shaman4IK]

program arrayExample;
uses crt;
var
arr: array[1..15] of integer;
i, sum, count: integer;
begin
randomize;
count := 0;
sum := 0;
for i := 1 to 15 do
begin
arr := random(76) + 10; // случайное число от 10 до 85
if (arr mod 5 = 0) then
begin
count := count + 1; // количество элементов кратных 5
sum := sum + arr; // сумма элементов кратных 5
end;
writeln('arr[', i, '] = ', arr);
end;

writeln('Количество элементов кратных 5 = ', count);
writeln('Сумма элементов кратных 5 = ', sum);

end.

 

[vfrc]

чо смеяццо, пол-человекогода напряженного труда ))

 

[садист666]

program RandomArray;

uses
Crt;

const
ARRAY_SIZE = 15;
MIN_VALUE = 10;
MAX_VALUE = 85;
MULTIPLE = 5;

var
i, value, sum, count: integer;
randomArray: array[1..ARRAY_SIZE] of integer;

begin
// Заполняем массив случайными числами от 10 до 85
Randomize;
for i := 1 to ARRAY_SIZE do
begin
randomArray := Random(MAX_VALUE - MIN_VALUE + 1) + MIN_VALUE;
Write(randomArray, ' ');
end;

// Находим количество и сумму элементов, кратных 5
count := 0;
sum := 0;
for i := 1 to ARRAY_SIZE do
begin
value := randomArray;
if (value mod MULTIPLE = 0) then
begin
count := count + 1;
sum := sum + value;
end;
end;

// Выводим результаты
WriteLn;
WriteLn('Количество элементов, кратных ', MULTIPLE, ': ', count);
WriteLn('Сумма элементов, кратных ', MULTIPLE, ': ', sum);

// Ждем, пока пользователь не нажмет любую клавишу
WriteLn;
Write('Нажмите любую клавишу для выхода...');
ReadKey;
end.
Эта программа заполняет массив randomArray случайными числами от 10 до 85, затем находит количество и сумму элементов, кратных 5, и выводит результаты на экран. Пользователь может нажать любую клавишу, чтобы закрыть программу.

Тестирование программы:

Входные данные: [70, 30, 42, 23, 11, 38, 55, 68, 29, 21, 10, 26, 54, 56, 16]. Ожидаемый результат: Количество элементов, кратных 5: 4, Сумма элементов, кратных 5: 230.

Входные данные: [43, 26, 11, 62, 51, 16, 71, 27, 26, 79, 79, 12, 70, 60, 32]. Ожидаемый результат: Количество элементов, кратных 5: 3, Сумма элементов, кратных 5: 195.

Входные данные: [49, 45, 17, 82, 69, 22, 34, 12, 59, 45, 21, 43, 45, 34, 84]. Ожидаемый результат: Количество элементов, кратных 5: 4, Сумма элементов, кратных 5: 225.