Программа паскаль можно сделать мне 1Написать программу, заполняющую массив 30 случайными числами [10..60].
2Вывести массив.
3Определить количество чисел, кратных 5.
4Определить в этом массиве сумму чисел, больших 50
5Определить в этом массиве номер элемента, равного 34
тролли=дизлайк
Программа паскаль можно сделать мне 1Написать программу, заполняющую массив 30 случайными числами [10..60].
2Вывести массив.
3Определить количество чисел, кратных 5.
4Определить в этом массиве сумму чисел, больших 50
5Определить в этом массиве номер элемента, равного 34
тролли=дизлайк
2Вывести массив.
3Определить количество чисел, кратных 5.
4Определить в этом массиве сумму чисел, больших 50
5Определить в этом массиве номер элемента, равного 34
тролли=дизлайк
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Конечно, вот программа на Pascal:
program RandomArray;var
arr: array[1..30] of integer;
i, countMultiplesOf5, sumGreaterThan50, indexOf34: integer;
begin
randomize;
countMultiplesOf5 := 0;
sumGreaterThan50 := 0;
indexOf34 := 0;
for i := 1 to 30 do
begin
arr[i] := random(51) + 10;
writeln('arr[', i, '] = ', arr[i]);
if arr[i] mod 5 = 0 then
countMultiplesOf5 := countMultiplesOf5 + 1;
if arr[i] > 50 then
sumGreaterThan50 := sumGreaterThan50 + arr[i];
if arr[i] = 34 then
indexOf34 := i;
end;
writeln('Number of multiples of 5: ', countMultiplesOf5);
writeln('Sum of numbers greater than 50: ', sumGreaterThan50);
if indexOf34 <> 0 then
writeln('Index of element equal to 34: ', indexOf34)
else
writeln('Element 34 not found in the array');
end.
Программа создает массив из 30 случайных чисел от 10 до 60, выводит массив, определяет количество чисел, кратных 5, сумму чисел больше 50 и находит индекс элемента, равного 34. Надеюсь, это поможет вам!