Паскаль. 1. Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти сумму элементов больших числа к введенного с
10-11 класс
|
клавиатуры
var a: array [0..9] of integer;
i, b, c: integer;
begin
readln(b);
for i := 0 to 9 do
begin
a[i] := random(20) - 10;
if (a[i] > b) then c := c + a[i];
end;
writeln(c);
end.
Другие вопросы из категории
символы ? и * запишите шаблон для записи следующих групп файлов:
1.Все файлы на диске B
2. 2
Фибоначчи по следующему правилу: F
Читайте также
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
заполнить массив из 9 элементов случайными числами в интервале в интервале [10,150] и найти min элемент массива, у которых вторая с конца цифра- нечетная