Написать программу в паскале.как можно ! задана квадратная матрица a размером n x n (n< =10), со-стоящая из действительных элементов. найти среднее арифметическое элементов каждой из четных строк этой матрицы.
№1 а) №4, №2, №5, №3, №6, №1. б)№2, №1, №3, №4, №6, №5. №2 тип №3 четвёртая запись №4 фамилия адрес тип название срок 1 Петров пр. Парковый 2-10 газета Известия 6 2 Иванова ул. Подлесная 11-14 журнал Крестьянка 3 3 Соколов ул. Строителей 8-5 газета Комсомольская правда 12 4 Федоров пр. Парковый 4-16 журнал Огонек 6 5 Яковлев ул. Подлесная 7-25 газета Комсомольская правда 6 6 Юсупова ул. Строителей 8-13 газета Известия 3 7 Юровский пр. Парковый 2-10 газета Известия 6 8 Корытько ул. Подлесная 7-25 газета Комсомольская правда 6 9 Худецкая пр. Парковый 2-10 газета Известия 6 10 Тагиров ул. Подлесная 7-25 газета Комсомольская правда 6
Действие компьютерного вируса состоит в том, что вместо букв «б», «в», «л», «о», «т» печатаются цифры, кроме цифры 0, причём разным буквам соответствуют разные цифры. Выясните, какие цифры каким буквам соответствуют, если известно, что: 1) сумма цифр слова «бот» равна 8; 2) сумма цифр слова «вол» равна 9; 3) сумма цифр слова «болт» равна 11; 4) сумма цифр слова «лото» равна 12. болт - бот = л, л = 11 - 8 = 3 вол = 9 во = вол - л = 9 - 3 = 6 лото =12 ото = лото - л = 12 - 3 = 9 бот=8, значит о > б на 1, л = 3, о = 2, б = 1, тогда т = 9 - 2 - 2 = 5, а - в = 6 - 2 = 4
begin
var n := ReadInteger;
var a := MatrRandom(n, n, -99, 99);
a.Println(4);
var arow := ArrGen(n div 2, 1, t -> t + 2);
var acol := ArrGen(n, t-> t);
a.MatrSlice(arow, acol).Rows.Select(t -> t.Average).PrintLines;
end.
На паскальабц.нет