<em>PascalABC.NET 3.3 под девизом
"Памяти наших дедов посвящается..."</em>
const
n=10;
var
a:array[1..n,1..n] of integer;
i,j,SumDiag,k:integer;
p:real;
begin
Writeln('*** Исходная матрица ***');
Randomize;
SumDiag:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99;
if i=j then SumDiag:=SumDiag+a[i,j];
Write(a[i,j]:4)
end;
Writeln
end;
for i:=1 to 4*n do Write('-');
Writeln;
Writeln('Сумма элементов на главной диагонали ',SumDiag);
p:=SumDiag/15;
k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]<p then k:=k+1;
Writeln('Искомое количество элементов ',k)
end.
<u>Пример</u>
*** Исходная матрица ***
95 37 30 21 83 -99 48 -40 49 -19
-66 -82 88 -24 70 14 -88 11 60 14
-72 -80 90 25 68 23 91 66 -54 52
33 16 25 -72 85 58 -39 44 8 -29
8 78 -79 51 50 -61 -13 -87 87 66
63 -45 94 -48 59 76 46 -94 53 -40
-90 81 -85 96 47 18 -8 61 -10 -87
-47 -33 -97 -10 -93 -51 98 -60 74 30
-63 78 79 -21 89 -21 21 -26 -31 -91
-88 -45 91 -51 -39 26 64 -75 -96 -67
----------------------------------------
Сумма элементов на главной диагонали -9
Искомое количество элементов 46
FTP от английского File Transfer Protocol - протокол передачи файлов. Ответ Б.
Архитектура системной платы определяется набором микросхем (chipset) – это одна или несколько микросхем, таймеры, система управления специально разработанная для "обвязки" микропроцессора.
Ответ:
с++
#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;
}
Объяснение: