pascal
Объяснение:
Задание 1
var
i, j, mini, minj: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(51) - 20;
Write(a[i,j]:6);
if a[i, j] <= min then begin
min := a[i, j];
mini := i;
minj := j;
end;
end;
WriteLn;
end;
WriteLn('Минимальный элемент A[',mini,',',minj,']=', min);
end.
Задание 2
var
i, j: integer;
min: real;
a: array [1..6, 1..8] of real;
begin
min := 30;
for i := 1 to 6 do begin
for j := 1 to 8 do begin
a[i, j] := random(11) + 20;
Write(a[i,j]:6);
if a[i, j] <= min then min := a[i, j];
end;
WriteLn;
end;
for i := 1 to 6 do
for j := 1 to 8 do
a[i, j] := a[i, j] - min;
WriteLn('Новый массив:');
for i := 1 to 6 do begin
for j := 1 to 8 do begin
Write(a[i,j]:6);
end;
WriteLn;
end;
end.
Поделитесь своими знаниями, ответьте на вопрос:
1. В среде Microsoft Office Excel создайте новую книгу, на листе № 1 разработайте таблицу. Изучите различные ввода формул и произведите необходимые расчеты. 2. Получите копию созданной таблицы, скопировав ее по частям. Отформатируйте исходную таблицу вручную, используя форматы данных (числовой, денежный, процент, дата и т. д.), обрамление и заполнение ячеек, различные форматы шрифтов, выравнивание абзацев, изменение высоты строк и ширины столбцов.3. Отформатируйте вторую таблицу, используя команду Автоформат из меню Формат.4. Подготовьте к печати одностраничный отчет. С этой целью оформите рабочий лист в виде фирменного бланка, внедрив в левом верхнем углу листа логотип (рисунок) из файла и указав название, адрес и телефон фирмы, создайте нижний колонтитул, включающий номер страницы в центре, а справа и слева – фамилии авторов отчета.Ввести в таблицу выручку от продажи книжной продукции в 2018 г. и вычислить долю от объема за год. Ввести не менее 10 наименований книжной продукции.Таблица:Продажа книг. Столбец: 1)Название книг (10 штук 2) 1, 2, 3, 4 кв. 6) Доля % от объема за год плаваю в excel, сроки поджимают сдачи работы с условием, если надо