1. Включить и проверить работу кулеров
2. Нажать кнопку Power
3. Ждать 15 минут для полной прогрузки ОС
4. Проверить температуру всех частей пк программой AIDA
5. Ввести пароль
6. Начать работу
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var v:=MatrRandom(7,7,-15,15);
v.Println(4); Writeln(4*v.ColCount*'-');
var pr3:=v.Row(2).Aggregate(1,(x,y)->x*y);
Writeln('Произведение элементов 3-й строки равно ',pr3);
Writeln('Количество элементов, больших этого произведения, равно ',
v.ElementsByRow.Where(t->t>pr3).Count);
Writeln('Максимум в 3-м столбце равен ',v.Col(2).Max)
end.
<u>Пример</u>
*** Исходный массив ***
-4 -12 -15 -2 13 3 -15
-7 -1 -15 2 -2 4 -6
14 5 5 15 -4 3 0
13 15 9 14 11 -9 11
1 14 14 1 -4 -1 -7
15 -10 -13 -3 -8 -12 11
0 -13 -8 4 6 1 -11
----------------------------
Произведение элементов 3-й строки равно 0
Количество элементов, больших этого произведения, равно 24
Максимум в 3-м столбце равен 14
var
a: array [1..10] of integer; //Массив из 10 целых элементов
max, i: integer; //max - максимальный элемент
begin
max:= 0; {Присваиваем max минимальное значение, которое он может принять}
write('Исходный массив: '); {Заполняем исходный массив, печатаем его и находим максимальный элемент}
for i:= 1 to 10 do
begin
a[i]:= random(10);
write(a[i], ' ');
if (i mod 2 = 0) and (a[i] > max) then
max:= a[i];
end;
writeln('Максимальный элемент массива среди элементов с четными индексами: ', max); //Печатаем исходный элемент
end.
Если все правильно, отметь решение как лучшее)
Какой то странный вопрос)Ты наверное случайно на клавиатуре заснул)
Пусть х- число искомой СС
420(х)=210(10)
Запишем в виде 4*x^2+2*x^1+0*x^0=210
4х^2+2x=210
Решим квадратное уравнение как в обычной математике.
Получим х=7. Значит число 420 записано в 7СС
