Помогите с командой в pascal turbo

Question

Помогите с командой в pascal turbo

Маким Анарх Ученик (204), на голосовании 4 дня назад

Составьте программу, которая заполняет одномерный массив из 10 элементов случайными целыми числами от -50 до 50, выводит его на экран и сообщает сумму всех положительных элементов этого массива.

Answer 1

лена иванова Ученик (1) 1 месяц назад

Хз

Answer 2

Паскаль го в но
program SumPositiveElements;
uses crt;

const
N = 10; // Размер массива

var
arr: array[1..N] of integer;
i, sum: integer;

begin
randomize; // Инициализация генератора случайных чисел
sum := 0; // Инициализация суммы положительных элементов

// Заполнение массива случайными числами от -50 до 50
for i := 1 to N do
begin
arr[i] := random(101) - 50; // random(101) дает числа от 0 до 100, вычитаем 50 для диапазона -50..50
end;

// Вывод массива на экран
writeln('Массив:');
for i := 1 to N do
begin
write(arr[i], ' ');
end;
writeln;

// Вычисление суммы положительных элементов
for i := 1 to N do
begin
if arr[i] > 0 then
sum := sum + arr[i];
end;

// Вывод результата
writeln('Сумма положительных элементов: ', sum);

readkey; // Ожидание нажатия клавиши (для Turbo Pascal)
end.