VBA 2. Зайти в модуль книги и создать процедуру заполнения ячеек рабочего листа с адресом «А1:Е10» случайными двухзначными значениями.
3. Найти среднее арифметическое, среднее геометрическое заполненного диапазона.
4. Поменять размер, начертание и цвет тех ячеек диапазона, которые кратны 5.
5. Поменять местами максимальный и минимальный элемент диапазона.
6. Создать пользовательскую форму с элементами группа (переключатели красный, синий, зеленый), прямоугольник и кнопка Закрыть. Написать процедуры обработки события на изменение цвета прямоугольника и закрытия формы.
7. Создать пользовательскую форму с полями X и Y, Результат, списком Операция, полем со списком Действие и кнопкой Закрыть. В список и поле со списком поместить значения, соответствующие арифметическим операциям (не менее 5). Создать соответствующие процедуры обработки событий на выполнение арифметических действий и помещения полученного значения в поле Результат. Предусмотреть обработку ошибки от деления на 0.
var a:array[1..3, 1..4] of integer;
i,j,min:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do begin
read(a[i,j]);
if a[i,j]<0 then min:=a[i,j];
end;
for i:=1 to 3 do
for j:=1 to 4 do
if (a[i,j]<0) and (a[i,j]<min) then min:=a[i,j];
writeln('Минимальное отрицательное число ',min);
end.
Задача №2
var a:array[1..2, 1..5] of integer;
i,j:integer;
begin
for i:=1 to 2 do
for j:=1 to 5 do read(a[i,j]);
for i:=1 to 2 do begin
for j:=1 to 5 do
write(a[i,j],' ');
writeln;
end;
end.
Задача №3
var a:array[1..3, 1..4] of integer;
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do read(a[i,j]);
for i:=1 to 3 do
for j:=1 to 4 do
if a[i,j]=10 then writeln('Номер столбца — ',j,' Номер строки — ',i);
end.