сервис вопросов и ответовНаписать программу Заполнить массив из 15 элементов случайными числами (-20;80) Посчитать сумму всех элементов массива Посчитать количество отрицательных
5-9 класс|
|
элементов
Olyaolga111
20 нояб. 2015 г., 1:34:20 (8 лет назад)
Кексики
20 нояб. 2015 г., 3:48:48 (8 лет назад)
const
n = 15;
var
a:array[1..n] of integer;
i, Count, Summ:integer;
begin
randomize;
Count := 0;
Summ := 0;
for i := 1 to n do
begin
a[i] := random(101) - 20;
write(a[i], ' ');
inc(Summ, a[i]);
if a[i] < 0 then
inc(count);
end;
writeln;
writeln('Summ = ', Summ);
writeln('Count = ', count);
readln;
end.
Ответить
Другие вопросы из категории
Читайте также
ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО!!! 1. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
Выполнить задачу на паскале (можно скрин с экрана) заполнить массив из 16 элементов случайными числами в интервале [-10..10] и найти в нем
максимальный элемент и его номер. Отмечу как лучшее!
помогите пожалуйста составить программу
Заполнить массив из 500 элементов случайными числами в интервале [0..100]. Отсортировать его по возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» . Вывести на экран число перестановок элементов массива в том и в другом случае. Массив выводить на экран не нужно.
Заполнить массив из 10 элементов случайными числами в интервале [-10...10] и выполнить инверсию отдельно для 1 и 2 половин массива.
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
-4 10 3 -5 4 0 1 -10 8 -6
Вы находитесь на странице вопроса "Написать программу Заполнить массив из 15 элементов случайными числами (-20;80) Посчитать сумму всех элементов массива Посчитать количество отрицательных", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.