М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
beresnevarseny
beresnevarseny
15.03.2023 20:01 •  Информатика

Напишите программу, которая заполняет массив случайными числами на отрезке [-2; 2] и считает сумму положительных элементов массива. (паскаль 9 класс)
типо этого

👇
Ответ:
Keenio
Keenio
15.03.2023
Конечно! Для решения данной задачи, мы можем использовать следующий алгоритм:

1. Объявляем переменные:
- n - размер массива (количество элементов)
- sum - переменная для хранения суммы положительных элементов массива
- array - массив для хранения случайных чисел

2. Вводим значение переменной n. Например, n = 10.

3. Создаем массив array размером n.

4. Заполняем массив случайными числами на отрезке [-2; 2]:
- Для каждого элемента array[i], где i от 0 до n-1, выполняем следующие действия:
- Генерируем случайное дробное число x на отрезке [0; 1] с помощью функции Rand.
- Переопределяем значение элемента array[i] следующим образом:
- Если x меньше 0.5, тогда присваиваем значение элемента -2.
- Если x больше или равно 0.5, тогда присваиваем значение элемента 2.

5. Выводим массив array на экран для проверки.

6. Считаем сумму положительных элементов массива:
- Для каждого элемента array[i], где i от 0 до n-1, выполняем следующие действия:
- Если array[i] больше 0, тогда добавляем его к переменной sum.

7. Выводим значение переменной sum на экран.

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

```
program SumOfPositiveElements;

var
n, i: integer;
sum: real;
array: array of real;

begin
// Шаг 2
write('Введите размер массива: ');
readln(n);

// Шаг 3
SetLength(array, n);

// Шаг 4
for i := 0 to n-1 do
begin
// Шаг 5
array[i] := -2 + Random * 4;
end;

// Шаг 5
writeln('Массив array:');
for i := 0 to n-1 do
begin
write(array[i]:4:2, ' ');
end;
writeln;

// Шаг 6
sum := 0;
for i := 0 to n-1 do
begin
if array[i] > 0 then
begin
sum := sum + array[i];
end;
end;

// Шаг 7
writeln('Сумма положительных элементов массива: ', sum:4:2);

end.
```

Эта программа считает сумму положительных элементов массива, заполненного случайными числами на отрезке [-2; 2]. Она использует генератор случайных чисел, функцию SetLength для создания массива определенного размера и циклы для заполнения массива и подсчета суммы положительных чисел. В конечном итоге, программа выводит на экран массив и сумму положительных элементов.
4,6(19 оценок)
Проверить ответ в нейросети
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ