Составить программу в PASCAL.
10-11 класс
|
Ввести размерность матрицы и значения ее элементов.
Определить максимальный и минимальный элемент. Переставить их местами.
Найти среднее арифметическое отрицательных элементов в i-ой строке.
const
m1 = 20;
n1 = 20;
var
a: array[1..m1, 1..n1] of integer;
b: array[1..m1] of real;
i, j, m, n, max, min, t, imax, jmax, imin, jmin, s, kn: integer;
begin
Write('Введите через пробел число строк и столбцов массива: ');
Readln(m, n);
max := -32768; min := 32767;
for i := 1 to m do
begin
Write('Строка ', i, ': ');
for j := 1 to n do
begin
Read(t);
a[i, j] := t;
if max < t then begin max := t; imax := i; jmax := j end
else if min > t then begin min := t; imin := i; jmin := j end
end
end;
a[imax, jmax] := min; a[imin, jmin] := max;
Writeln('Результирующий массив');
for i := 1 to m do
begin
s := 0; kn := 0;
for j := 1 to n do
begin
Write(a[i, j]:6);
if a[i, j] < 0 then begin s := s + a[i, j]; Inc(kn) end
end;
Writeln;
if kn > 0 then b[i] := s / kn else b[i] := 0
end;
Writeln('Среднее арифметическое отрицательных элементов построчно:');
for i := 1 to m do Writeln(b[i]:10:4)
end.
Тестовое решение:
Введите через пробел число строк и столбцов массива: 4 6
Строка 1: 5 -3 0 7 11 -4
Строка 2: 14 -12 -7 13 11 18
Строка 3: 3 11 8 -14 25 15
Строка 4: 15 0 -17 21 0 -21
Результирующий массив
5 -3 0 7 11 -4
14 -12 -7 13 11 18
3 11 8 -14 -21 15
15 0 -17 21 0 25
Среднее арифметическое отрицательных элементов построчно:
-3.5000
-9.5000
-17.5000
-17.0000
Это Вы решили всем сообщить, насколько сейчас заняты?
нет, это я отметил, что задание сложное и времени нужно много, чтобы разобраться, так что без наездов, пожалуйста ;-)
Да кому это интересно, что оно для Вас сложное? Его уже двое решили...
поздравляю, у меня ни компилятора, ни учебника под рукой, и если что, вы сами на этот ответ напросились, ой, все короче:)))
Это Вы все из серии надписи на заборе "Тут был ВАСЯ". Теперь весь мир знает, какой несчастный Stack331: времени нет, компиляторов нет, учебников нет...
Другие вопросы из категории
1) 110 + 101;
2) 10101-11;
3) 101 ´ 11;
4) 1110:10.
Задание 12. Выполните арифметические действия:
а) 11102 + 10012;
б) 678 + 238;
в) AF16 + 9716;
г) 11102 - 10012;
д) 678 - 238;
e) AF16 - 9716;
ж) 11102 × 10012;
з) 678 × 238;
и) AF16 × 9716;
к) 10102 : 102;
л) 748 : 248;
м) 5А16 : 1Е16.
1 1 1
2 4 8
3 9 27
----------------
10 100 1000
ASCII)?
Варианты ответа:
1) 4 секунды
2) 2 часа
3) 2 секунды
4) 8 секунд
Читайте также
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
2. Составить программу для упорядоченное двух элементов по убыванию.
вывести список книг, изданных после 2003 года.
2)составить программу , организующую массив записей о пяти студентах и их оценках по трем предметам. провести сортировку и вывести список отличников.
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
Составить программу к.т. запрашивает буквы, пока не введут точку и находит количество букв "0".