помогите пожалуйста написать программу по паскалю- дана квадратная матрица A порядка M найти среднее арифметическое элемента каждой ее диагонали
10-11 класс
|
параллельной побочной
var a:array [1..100,1..100] of integer;
b:array[1..201,1..2] of real;
i,j,k,m:integer;
Begin
read(m);
{vvod matricy A}
for i:= 1 to m do
for j:= 1 to m do begin
b[i+j-1,1]:=b[i+j-1,1] + a[i,j];
b[i+j-1,2]:=b[i+j-1,2] + 1;
end;
for i:= 1 to 2*m-1 do
writeln(b[i,1]/b[i,2]);
End.
Другие вопросы из категории
(X1,Y1)(X2,Y2)(X3,Y3)(X4,Y4)(X5,Y5) соответственно. Найти площадь этого пятиугольника используя в качестве подпрограммы a) функцию
Задать массив из 30 положительных элементов случайным образом.
• найти кол-во нечётных элементов всего массива;
• найти минимальный элемент;
• элементы, кратные 10, заменить единицами и вывести новый массив.
Читайте также
минимальным элементами массива (включая их)
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Написать программу, которая вычисляет среднее арифметическое элементов с четными индексами и среднее арифметическое с нечетными индексами.
Ввод: Число N и элементы массива вводятся из Файла.
Вывод: В файл должны быть введены 2 вычисленных значения