Помогите пожалуйста создатл команду в pacsal turbo
Составьте программу, которая заполняет одномерный массив из 10 элементов случайными целыми числами от -50 до 50, выводит его на экран и сообщает сумму всех положительных элементов этого массива.
помогите прошу, буду благодарен
нужно использовать команду рандомайзер
Конечно! Вот программа на Pascal Turbo, которая создает массив из 10 элементов, заполняет его случайными числами от -50 до 50, выводит массив на экран и считает сумму положительных элементов:
```pascal
program RandomArray;
uses crt, random;
const
ARRAY_SIZE = 10;
var
arr: array[1..ARRAY_SIZE] of Integer;
i, sum: Integer;
begin
randomize; { Инициализация генератора случайных чисел} sum := 0;
{ Заполнение массива случайными числами и вывод на экран} writeln('Сгенерированный массив:'); for i := 1 to ARRAY_SIZE do
begin
arr[i] := random(101) - 50; { Генерация числа от -50 до 50} write(arr[i], ' ');
{ Сумма положительных элементов} if arr[i] > 0 then
sum := sum + arr[i]; end;
writeln; { Переход на новую строку} writeln('Сумма положительных элементов: ', sum);
readln; { Ожидание нажатия клавиши}end.```### Объяснение кода:
1. **randomize** — инициализирует генератор случайных чисел.2. **random(101) - 50** — генерирует случайные числа от -50 до 50.3. Цикл проходит по всем элементам массива, выводит их и считает сумму положительных.Скопируй этот код в Pascal Turbo, запусти его, и он сделает всё, что нужно! Удачи!
program SumPositiveElements;
uses crt;
const
N = 10; // Размер массива
var
arr: array[1..N] of Integer; // Одномерный массив
i, sum: Integer; // Переменные для цикла и суммы положительных элементов
begin
clrscr; // Очистка экрана
Randomize; // Инициализация генератора случайных чисел
// Заполнение массива случайными числами от -50 до 50
writeln('Исходный массив:');
for i := 1 to N do
begin
arr[i] := Random(101) - 50; // Генерация числа от -50 до 50
write(arr[i]:4); // Вывод элемента массива на экран
end;
writeln; // Переход на новую строку
// Вычисление суммы положительных элементов
sum := 0;
for i := 1 to N do
begin
if arr[i] > 0 then
sum := sum + arr[i];
end;
// Вывод результата
writeln('Сумма всех положительных элементов: ', sum);
readln; // Ожидание нажатия клавиши перед завершением программы
end.
Паскаль
пиши так массив равен new int[10] заполнить его через цикл рандомайзер от -50 до 50 потом вывести и посчитать сумму положительных так делай
program SumPositiveElements;
var
arr: array[1..10] of Integer;
i, positiveSum: Integer;
begin
Randomize; { Инициализация генератора случайных чисел }
{ Заполнение массива случайными числами от -50 до 50 }
for i := 1 to 10 do
begin
arr[i] := Random(101) - 50; { Генерация числа от -50 до 50 }
end;
{ Вывод массива на экран }
Write('Сгенерированный массив: ');
for i := 1 to 10 do
begin
Write(arr[i], ' ');
end;
Writeln;
{ Вычисление суммы положительных элементов }
positiveSum := 0;
for i := 1 to 10 do
begin
if arr[i] > 0 then
positiveSum := positiveSum + arr[i];
end;
{ Вывод суммы положительных элементов }
Writeln('Сумма положительных элементов: ', positiveSum);
Readln; { Ожидание нажатия клавиши для завершения программы }
end.
Не силён в этом вопросе.
можешь сделать так заполни массив с нужным диапазоном потом посчитай сумму и выводи все на экран
вот пример кода для pacsal turbo чтобы заполнить массив случайными числами и посчитать сумму положительных элементов просто скопируй и вставь: array[10] int randomize for i=0 to 9 do array[i]=random(-50,50) write(array[i]) sum=0 for i=0 to 9 if array[i]>0 then sum=sum+array[i] end if end for write(sum)