Дан массив 5x5 [-20,40] Используя QBasic, найти среднее арифметическое
5-9 класс
|
элементов, оканчивающихся на 5.
Ребят, помогите, пожалуйста, желательно полностью написать весь алгоритм. Заранее спасибо!
DIM A(5, 5)
RANDOMIZE TIMER
FOR I = 1 TO 5
FOR J = 1 TO 5
A(I, J) = INT(RND * 60) - 20
PRINT A(I, J),
NEXT J
PRINT
NEXT I
FOR I = 1 TO 5
FOR J = 1 TO 5
IF A(I, J) MOD 10 = 5 THEN S = S + 1
NEXT J
NEXT I
PRINT S;" элементов оканчиваются на 5"
Другие вопросы из категории
находится на табло , чтобы с его помощью можно было передавать 15 разных сигналов?
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.