1. Информатика
  2. Написать программу в паскале.как

Написать программу в паскале.как можно !
задана квадратная матрица a размером n x n (n< =10), со-стоящая из действительных элементов. найти среднее арифметическое элементов каждой из четных строк этой матрицы.

jungkokBTSlove jungkokBTSlove    1   31.10.2019 23:20    1

Ответы
саня30970 саня30970  10.10.2020 10:36

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.

На паскальабц.нет

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
FIREH4IR FIREH4IR  05.04.2021 23:02
Где ошибка в программе? var d, s, n: integer;begin for d := 6 to 1000 do begin s := (s + 1) div 7; n := 36; while s 2050 do begin s := s * 2; n := n + 3; end; if n = 60 then writeln(d);...
Саша22122004 Саша22122004  05.04.2021 22:52
Надо написать на питоне это:...
Петр1234561 Петр1234561  12.06.2019 03:00
Какой объём информации несёт следующие сообщение: традиционно для кодирования 1 символа используется 8 бит...
yanasyperyanaco yanasyperyanaco  12.06.2019 03:00
Как на моб. версии этого сайта поставить главную фотографию?...
Бантюсик Бантюсик  10.02.2021 22:48
Дано 5 числовых констант: А=35, К=12, T=2, P=89, Z=1. Вывести значения этих констант на экран. Вычислить среднее арифметическое этих чисел. Вывести результат на экран с пояснением,...
deniwolf200 deniwolf200  10.02.2021 22:46
Найти наибольшее из 2-ух чисел A и B (составьте блок-схему) ​...
dradya dradya  21.05.2019 06:13
Определите значение полей документа представлены на рисунке ниже левое поле правое поле​...
Настя040827 Настя040827  11.03.2021 01:28
Procedure TForm1.Button1Click(Sender: TObject); var x1,x2,y1,y2,y:real;begin x1=StrToFloat(Edit1.Text); x2:=StrToFloat(Edit2.Text); y1=x1*x*2; y2:=x1+x2; y:=y2/y1; y:=Int(y); Label1.Текст:=FloatToStr(y);end;Виправити...
darya03fox04 darya03fox04  11.03.2021 00:12
Информатика эксель, формула если...
Mmmmmmamba Mmmmmmamba  11.03.2021 00:05
Определите что будет результатом программых=-10if x 0:y=x-12elif X==0:y=5else:y=x * *2print( y= , y)​...

Популярные вопросы