Помогите написать программу пожалуйста. Дан одномерный массив… составить программу, которая находит произведение элементов, которые кратны 3 и не кратны 9
5-9 класс
|
var a:array [1..10] of integer; I,s:integer; begin randomize; s:=1; for I:=1 to 10 do begin a[I]:=random(100); if (a[I] mod 3 =0)and(a[I] mod 9<>0) then s:=s*a[I]; write(a[I]:4); end; writeln; writeln(s); end.
Другие вопросы из категории
убывания, а также количество N этих чисел.
зростання кількості мандаринів, що вони зїли.
2. Запишите внутреннее представление следующих десятичных чисел, используя 8-разрядную ячейку:
а) 64 б) -120 в) -96 г) 57
а)
б)
в)
г)
3. Запишите внутреннее представление следующих десятичных чисел, используя 16-разрядную ячейку:
а) -15098 б) 6524 в) -28987
а)
б)
в)
4. Определите, каким десятичным числам соответствуют следующие двоичные коды 8-разрядного представления целых чисел:
а) 00100111 б) 11001110 в) 10101010 г) 01111110
а)
б)
в)
г)
Читайте также
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать произвольные целые значения.Напишите программу,которая находит и выводит сумму наибольшей возрастающей последовательности подряд идущих элементов.
и количество элементов с нечетными значениями.
б) Составьте программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечетными значениями и количество элементов с четными значениями.
1. Написать программу нахождения произведения n чисел.
отсортировать в порядке возрастания элементов. Вывести:
- матрицу
- одномерный массив до сортировки
- одномерный массив после сортировки прошу. срочно!