Программа паскаль можно сделать мне 1Написать программу, заполняющую массив 30 случайными числами [10..60].

2Вывести массив.

3Определить количество чисел, кратных 5.

4Определить в этом массиве сумму чисел, больших 50

5Определить в этом массиве номер элемента, равного 34

тролли=дизлайк

Предыдущий
вопрос Следующий
вопрос

Конечно, вот программа на 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. Надеюсь, это поможет вам!