бути оголошені об'єкти, ім'я яких співпадає з ім'ям програми. p align="justify"> Завдання № 1
Дана квадратна матриця А. У матриці обчислити середнє арифметичне позитивних елементів, що стоять вище головної діагоналі.
Program SredneeArif; crt; a: array [1 .. 50,1 .. 50] of integer;, j, n, s, k: integer;: real; ('Введіть розмірність матриці: '); readln (n); i: = 1 to n doj: = 1 to n do begin (' a [', i,', ', j,'] = '); (a [i, j]) ;;: = 0;: = 0; i: = 1 to n doj: = 1 to n do if i
writeln ( Середнє арифметичне значення позитивних елементів : ', s1: 4:2);
for i: = 1 to n do beginj: = 1 to n do write (a [i, j]: 4);;
end;
readln;.
Результати виконання завдання № 1
Matr A
11 15 липня -5
-4 23 14 23
3 січня -8 -12
-5 -9 -4 -28
18 17 34 17
Середнє арифметичне значення позитивних елементів: 13.1
Блок-схема алгоритму рішення задачі 1
В
Рішення завдання № 1 засобами MathCAD
Дана квадратна матриця А. У матриці обчислити середнє арифметичне позитивних елементів, що стоять вище головної діагоналі.
Створення числового масиву з використанням вбудованої функції rnd (10), яка генерує випадкові числа
В
Знаходження суми позитивних елементів, що стоять вище головної діагоналі:
pascal масив файл графічний
В
Знаходження кількості позитивних елементів, що стоять вище головної діагоналі:
В
Середнє арифметичне позитивних елементів, що стоять вище головної діагоналі:
В
ЗАВДАННЯ № 2
Залізничне розклад:
В· № поїзда
В· Назва маршруту
В· Час відправлення
В· Час прибуття
В· Тип поїзда
В· Час в дорозі
В· Дні
1. Вибірка по полю
2. Сортування за № поїзда
. Знаходження максимального і мінімального по полю
Program poezd; crt; stroka = record: array [1 .. 50] of of stroka; input;; ('Вве...
