Составить программку в PASCAL.Ввести размерность матрицы и значения ее элементов. Определить
Составить программку в PASCAL.
Ввести размерность матрицы и значения ее частей.
Найти наибольший и минимальный элемент. Переставить их местами.
Отыскать среднее арифметическое отрицательных частей в i-ой строке.
Хорошева
Мария
ого, массивы? позже может напишу, когда медли много будет
Почтарь
Павел
Это Вы решили всем сказать, насколько сейчас заняты?
Karina Gromenko
нет, это я отметил, что задание сложное и медли необходимо много, чтоб разобраться, так что без наездов, пожалуйста ;-)
Чалиновский
Виталий
Да кому это интересно, что оно для Вас трудное? Его теснее двое решили...
Степан Симолицин
приветствую, у меня ни компилятора, ни учебника под рукою, и если что, вы сами на этот ответ напросились, ой, все кратче:)))
Никита Притуленко
Это Вы все из серии надписи на заборе "Здесь был ВАСЯ". Теперь весь мир знает, какой несчастный Stack331: медли нет, компиляторов нет, учебников нет...
1 ответ
Цицорина
Злата
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 lt; t then begin max := t; imax := i; jmax := j end
else if min gt; 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] lt; 0 then begin s := s + a[i, j]; Inc(kn) end
end;
Writeln;
if kn gt; 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
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 lt; t then begin max := t; imax := i; jmax := j end
else if min gt; 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] lt; 0 then begin s := s + a[i, j]; Inc(kn) end
end;
Writeln;
if kn gt; 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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов