В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
polina033
polina033
06.01.2020 14:38 •  Информатика

1. Создать рабочую книгу с двумя листами: Матрица, Задача. Сохранить книгу на указанном диске под именем Лаб_раб_№3.xls. 2. Создать собственную панель инструментов, поместив в неё все кнопки, которые вами использовались в процессе выполнения лаб. раб.

3. Поместить в созданную панель кнопку, изображение которой отредактировать.

4. Ввести исходную матрицу размером 3´3 на рабочий лист Матрица в соответствии с предложенным вариантом в таблице 1

5. Выполнить все предложенные в таблице 2 операции с исходной матрицей. Все действия с матрицами выполнять в столбик, для того чтобы реализовать группировку данных.

Показать ответ
Ответ:
Маликакот
Маликакот
27.08.2022 06:39
Var
   i,j,t,x:integer;
   a:array[1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
   begin
   a[i]:=random(-100,100);
   write(a[i]:5)
   end;
i:=2;
while i<11 do
   begin
   t:=a[i];
   a[i]:=a[i-1];
   a[i-1]:=t;
   i:=i+2
   end;
writeln;
writeln('Переставленный массив:');
for i:=1 to 10 do
   begin
   write(a[i]:5);
   if a[i] mod 2=0 then x:=x+1
   end;
writeln;
writeln('Четных элементов: ',x);
//Гномья сортировка   
i:= 2;   
j:= 3;
while i < 11 do
        if a[i - 1] > a[i] then
            begin
            i:= j;
            j:= j + 1
            end
        else
            begin
            t:= a[i - 1];
            a[i - 1]:= a[i];
            a[i]:=t;
            i:= i - 1;
            if i = 1 then
                begin
                i:= j;
                j:= j + 1
                end
            end;
writeln('Отсортированный массив:');
for i:=1 to 10 do  write(a[i]:5)
end.
0,0(0 оценок)
Ответ:
begin   Randomize;   for i := 1 to n do     for j := 1 to n do       X[i,j] := Random(100);     for i := 1 to n do begin     IndMax := 1;     max :=X[i,1];     for j := 2 to n do begin       if X[i,j]>max then begin         max := X[i,j]; //Наибольший элемент строки с номером i         IndMax := j;  //Столбец, в котором находится наибольший элемент строки                            //с номером i       end;     end;   //Смена элементов     X[i,IndMax] := X[i,i];     X[i,i] := max;   end;   end;
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота