Задан динамический двумерный массив. найти сумму четырех случайных элементов массива и произведение 9 случайных элементов массива.результат вывести на экран. язык реализации pascal.
//2 var a, b, c: real; begin write('Введите стороны треугольника A B C: '); readln(a, b, c); writeln('Периметр = ', a + b + c); end.
//3 var a, b: real; begin write('Введите стороны прямоугольника A B: '); readln(a, b); writeln('Площадь = ', a * b); writeln('Периметр = ', 2 * (a + b)); end.
//4 var a, b, c: real; begin write('Введите ребра A, B, C: '); readln(a, b, c); writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1); writeln('Объем = ', (a*b*c):0:1); end.
//5 var r: real; begin write('Введите радиус: '); readln(r); writeln('Длина окружности = ', (2 * pi * r):0:1); end.
1. Внутреннюю — оперативную и внеш¬нюю — долговременную 2. Управление устройствами и задачами 3. Красный, зеленый, синий 4. Целые числа в памяти компьюте¬ра это: Дискретное и конечное множество 5. Контроллер 6. Передача данных, передача адресов
7. D
8. Прикладные программы общего назначения и специализированные программы 9. Главная формула информатики? 2i = N 16i = N 2f = Z 2i = M
10. Прикладные программы и системные программы
11. К основным типам устройств оперативной памяти относятся? Динамическая и статическая память 12. Компьютер 13. Какой универсальный звуко¬вой формат файлов используется для сохранения звука без потерь? WAV
14. Множество целых чисел в компьютере дискретно, конечно, ограничено
15. В памяти компьютера числа хранятся? В двоичной сис¬теме счисления
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
function RandomElement(m, n: integer; a: array[,] of integer) :=
a[Random(0, m - 1), Random(0, n - 1)];
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a := MatrRandom(m, n, -99, 99);
a.Println(4); Println(4 * a.ColCount * '-');
var s := 0;
loop 4 do
s += RandomElement(m, n, a);
var p := 1;
loop 9 do
p *= RandomElement(m, n, a);
Println('Сумма 4 случайных', s);
Println('Произведение 9 случайных', p)
end.