Ответ:
с++
#include <iostream>
#include <ctime>
using namespace std;
int main() {
srand(time(NULL));
int arr[10],sum=0;
for (int i = 0; i < 10; i++) //заполнение массива
{
arr[i] = rand() % 100;
}
for (int i = 0; i < 10; i++) //вывод массива
{
cout << arr[i] << "\t";
}
cout << endl;
for (int i = 0; i < 10; i++) //узнаем кратность чисел
{
if (arr[i] % 4 == 0) {
sum = sum + arr[i];
}
}
cout << sum << endl;
system("pause");
return 0;
}
Объяснение:
<em>// PascalABC.NET 3.2, сборка 1478 от 10.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<em>№1</em>
begin
var n:=ReadInteger('n=');
Writeln('S=',n*(n+1) div 2)
end.
<u>Пример</u>
n= 15373
S=118172251
<em>№2</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Количество отрицательных элементов построчно:');
a.Rows.Select(r->r.Where(x->x<0).Count).Println
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
88 43 64 50 -27 -9 48 55
1 40 -39 -99 -45 -54 17 -77
-33 99 -38 -19 -93 18 -19 -24
17 4 -36 90 98 69 68 35
-35 18 85 54 -74 -69 14 -62
--------------------------------
Количество отрицательных элементов построчно:
2 5 6 1 4
var a,b : real;
begin
read(a,b);
if (a<0) and (b<0) then Writeln(sqrt(a/b)) else
Writeln(a*3,' ',b+7);
end.
1.
uses crt;
var i,n:integer;
A:array[1..4] of integer;
begin
n:=1;
for i:=1 to 4 do
begin
read(A[i]);
n:=n*A[i];
end;
writeln(n);
end.
Ответ:
2 и 3 вариант верные
Объяснение:
Поставь лучший ответ пожалуйста 
