Регистрация
vbnmmkllpuuh
21.05.2022 13:09
Информатика
Есть ответ 👍

Сделать по программированию в pascal. 1. найти произведение всех элементов массива размерностью n (если элемент равен 0, то пропустить). 2. найти максимальный по модулю элемент матрицы. напечатать его значение и индексы.

287
495
Посмотреть ответы 2

Ответы на вопрос:

ариариииирпа
ариариииирпа
4,7(99 оценок)
1) const   n = 5; //размерность массива var   m: array[1..n] of integer; begin   var pr : = 1;   for var i : = 1 to n do   begin       read(m[i]);       if m[i] < > 0 then pr : = pr * m[i];   end;   writeln(pr); end. пример: входные данные: 1 2 3 0 5 выходные данные: 30 2) const   n = 3; //размерность матрицы var   m: array[1..n, 1..n] of integer;   i, j: integer;   rec: record       mmax: integer = -(maxint);       ind: record           i: integer;           j: integer;       end;   end; begin   for i : = 1 to n do       for j : = 1 to n do       begin           read(m[i, j]);           if abs(m[i, j]) > rec.mmax then begin               rec.mmax : = abs(m[i, j]);               rec.ind.i : = i;               rec.ind.j : = j;           end;       end;   writeln('максимальный по модулю элемент матрицы ', rec.mmax, '(', rec.ind.i, '; ', rec.ind.j, ')'); end. пример: входные данные: 1 2 3 4 5 -9 7 8 6 выходные данные: максимальный по модулю элемент матрицы 9(2; 3)
Kira25112016
Kira25112016
4,6(37 оценок)

Объяснение:

В нижнем правом углу выделенной (активной) ячейки или выделенного диапазона ячеек можно видеть небольшой квадратик — маркер автозаполнения.

Популярно: Информатика