var a: array[1..m, 1..n] of integer; i, j, mi, mj, max: integer;
begin Randomize; for i := 1 to m do for j := 1 to n do a[i, j] := random(100) - 50; // случайные числа в интервале [-50..50] max := -100; //меньше минимального из возможных for i := 1 to m do for j := 1 to n do if max < abs(a[i, j]) then begin max := abs(a[i, j]); mi := i; mj := j end; writeln('Исходный массив'); for i := 1 to m do begin for j := 1 to n do write(a[i, j]:4); writeln end; writeln('Максимальный по модулю элемент:a(', mi, ',', mj, ')=', max:3) end.
begin writeln('Введите значение Х'); readln(X); Randomize; for i := 1 to n do a[i] := random(100) - 50; // случайные числа в интервале [-50..50] s := 0; for i := 1 to n do if (a[i]) < X then s := s + abs(a[i]); writeln('Исходный массив'); for i := 1 to n do write(a[i]:4); writeln; writeln('Искомая сумма:', s:3) end.
1.Информация - сведения, передаваемые одними людьми другим людям устным, письменным или каким-либо другим
2. Глаза, уши, мозг.
3. Глаза, мозг (зрение)
4.Фактографическая
Комментарийная
Аналитическая
Справочная
Иллюстративная информация
Методическая информация
Побудительная информация
Констатирующая информация
Логическая
Числовая
Текстовая
Звуковая
Графическая
Видео
5.достоверность, объективность, полноту, актуальность, понятность и доступность
Объяснение: