Задание: ставьте условие к решенной задаче, укажите диапазон генерируемых случайным образом чисел создайте форму для вывода результатов запустите код, исправьте ошибки (если они есть) используя данный код в качестве основы, предложите новый код Для вычисления среди элементов массива произведения четных чисел. Private Sub Commandi_Clicko Dim D(1 To 20) As Integer, X As Byte, S As Integer Randomize For X = 1 To 20 D(X) = -30 + Fix(Rnd * (-10 - (-30) + 1)) TextBox1.Text = TextBox1 Str(D(X)) + vbCrL Next X S = 0 For X = 1 To 20 I D(X)/2 o D(X) 12 Then S = S + D(X) Next X TextBox2.Text = Str(S) End Sub
#include <iostream>
#include <time.h>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int a[5][5];
int i, j, s, p;
srand(time(NULL));
for (i = 0; i <= 4; i++) {
cout << "\n";
for (j = 0; j <= 4; j++) {
a[i][j] = ((double)rand() / (RAND_MAX + 1) * 5) + 1;
cout << a[i][j] << ' ';
}
}
s = 0;
for (i = 0, j = 4; i < 5; i++, j--) // правая диагональ
s += a[i][j];
p = 1;
for (i = 0; i < 5; i++) // левая диагональ
p *= a[i][i];
cout << "\n\nСумма правой диагонали = " << s << "\nПроизведение левой диагонали = " << p << "\n";
}