QBASIC: DIM a(20) AS INTEGER DIM sum, prod AS INTEGER RANDOMIZE TIMER ' Инициализация генератора случайных чисел ' Заполняем массив случайными числами FOR i = 1 TO 20 a(i) = INT(RND * 101) NEXT i ' Обнуляем сумму и произведение sum = 0 prod = 1 ' Подсчитываем сумму и произведение FOR i = 1 TO 20 IF a(i) < 50 THEN sum = sum + a(i) END IF IF a(i) MOD 5 = 0 THEN prod = prod * a(i) END IF NEXT i PRINT "Сумма элементов < 50: "; sum PRINT "Произведение элементов, кратных 5: "; prod ---------- C++: #include #include #include using namespace std; int main() { const int N = 20; int a[N]; int sum = 0, prod = 1; srand(time(nullptr)); // Инициализация генератора случайных чисел // Заполняем массив случайными числами for (int i = 0; i < N; ++i) { a = rand() % 101; } // Подсчитываем сумму и произведение for (int i = 0; i < N; ++i) { if (a < 50) { sum += a; } if (a % 5 == 0) { prod *= a; } } cout << "Сумма элементов < 50: " << sum << endl; cout << "Произведение элементов, кратных 5: " << prod << endl; return 0; } ---------- Pascal (Delphi): program SumAndProduct; var a: array[1..20] of integer; i, sum, prod: integer; begin randomize; // Инициализация генератора случайных чисел // Заполняем массив случайными числами for i := 1 to 20 do a := random(101); // Обнуляем сумму и произведение sum := 0; prod := 1; // Подсчитываем сумму и произведение for i := 1 to 20 do begin if a < 50 then sum := sum + a; if a mod 5 = 0 then prod := prod * a; end; writeln('Сумма элементов < 50: ', sum); writeln('Произведение элементов, кратных 5: ', prod); readln; end.
