ння масиву У} ('Введіть розмірність масиву У');
read (n1m, n2m); i: = 1 to n1m doj: = 1 to n2m do [i, j]: = random (100) * 0.2;
end;;
{Формування масиву Про} ('Введіть розмірність масиву О');
read (n1p, n2p); i: = 1 to n1p doj: = 1 to n2p do [i, j]: = random (100) * 0.3;;;
{Друк масивів}
Pechat (n1m, n2m, my);
Pechat (n1p, n2p, mo);;
{Підрахунок середніх значень 1-го і 3-го стовпців}
b: = Sred (n1m, n2m, my, 1);
writeln ('Середнє значення елементів першого стовпця масиву У =', b: 7:3);
b: = Sred (n1m, n2m, my, 3);
writeln ('Середнє значення елементів третього стовпця масиву У =', b: 7:3);
b: = Sred (n1p, n2p, mo, 1);
writeln ('Середнє значення елементів першого стовпця масиву O =', b: 7:3);
b: = Sred (n1p, n2p, mo, 3);
writeln ('Середнє значення елементів третього стовпця масиву O =', b: 7:3);.
Результат виконання програми
В
Контрольне завдання № 10
Задати два одновимірних масиву значень, щоб величини елементів масивів потрапляли в заданий інтервал на всьому діапазоні (значення вибрати довільно). Для вирішення даної задачі застосувати підпрограму типу Procedure.
Т (15), L (8) Визначити середньогеометричні значення
(-1, 3) позитивних елементів двох масивів
Рішення
Блок-схема
В
Масиви Т (15), L (8) формуються за допомогою вбудованої функції random. Для цього використовується підпрограма-процедура fmas. p align="justify"> Для заміни визначення середньогеометричними значення позитивних елементів у масиві використовується процедура kp
Лістинг програми
Program Zadanie_10; CRT; mm = array [1 .. 20] of real;
var mg, mk: mm;, n2, k: integer;
s1, s2, x1, x2, p, sg: real;
{Процедура формування масиву} fmas (n: integer; x1: real; x2: real; var b: mm); k: integer; k: = 1 to n do [k]: = x1 + (x2-x1) * random; k: = 1 to n do (b [k]: 6:3, '');
writeln;;
{Процедура підрахунку середньогеометричними значення
позитивних елементів}
procedure kp (b: mm; n: integer; var k: integer; var p: real);
var i,...
