М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
snoopy201
snoopy201
10.05.2022 15:10 •  Информатика

Какой результат выйдет на экран при А=5, В=7, k=q=1 1
m=7,
k=2 m=5,
q=2 m=7,
q=2 m=5,
k=2​


Какой результат выйдет на экран при А=5, В=7, k=q=1 1 m=7, k=2 m=5, q=2 m=7, q=2 m=5, k=2​

👇
Открыть все ответы
Ответ:
banana92
banana92
10.05.2022
Веб-дизайнер:Такой специалист занимается созданием сайтов и придумывает уникальные дизайнерские решения для них. Сегодня каждая уважающая себя фирма желает иметь свой Интернет-ресурс, а чтобы он был интересен для пользования, у него должна быть довольно удобная система навигации и интересное эстетическое оформление. Именно эти задачи и стоят перед веб-дизайнерами.

Вид деятельности «Программирование» - аналитик компьютерных систем, системотехник, инженер по автоматизированным системам, программист.
Вид деятельности «Обслуживание компьютерной техники» - IT-специалист (менеджер) , оператор ПК (ЭВМ) , системный интегратор, системный администратор, специалист по защите.
Вид деятельности «Искусство» - дизайнер, веб-дизайнер, фотограф, клипмейкер, фрилансер.
Вид деятельности «Полиграфия» - пейджмейкер, копирайтер, рерайтер, корректор, художественный и технический редактор, верстальщик, оператор компьютерного набора.
Вид деятельности «Офис, организация, предприятие» - секретарь, референт, делопроизводитель, машинистка, бухгалтер, менеджер, консультант.
4,6(8 оценок)
Ответ:
raku13
raku13
10.05.2022
1. Создаем файл MatInt.pas следующего содержания:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
unit MatInt;

interface

type
  Matrix=array[,] of integer;

function MatCreate(m,n:integer):Matrix;
procedure MatPrint(a:Matrix;w:integer);
procedure MatMax(a:Matrix;var x,imax,jmax:integer);

implementation

function MatCreate(m,n:integer):Matrix;
// создает матрицу и инициализирует её нулями
begin
  SetLength(Result,m,n);
end;

procedure MatPrint(a:Matrix;w:integer);
// выводит матрицу, отводя w позиций под элемент
begin
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to n do Write(a[i,j]:w);
    Writeln
    end
end;

procedure MatMax(a:Matrix;var x,imax,jmax:integer);
// возвращает значение максимального элемента и его координаты
begin
  imax:=0; jmax:=0;
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
    for var j:=0 to n do
      if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j);
  Inc(imax); Inc(jmax); x:=a[imax-1,jmax-1]
end;

end.

2. Компилируем файл, получая библиотеку MatInt.pcu

3. Пишем основную программу:

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
uses
  MatInt;
begin
  var a:=MatCreate(5,8);
  var n:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do
  for var j:=0 to n do a[i,j]:=Random(-50,50);
  MatPrint(a,4);
  var irow,jcol,max:integer;
  MatMax(a,max,irow,jcol);
  Writeln('Максимальный А[',irow,',',jcol,']=',max)
end.

Тестовое решение
  11 -16  11  16  23  -4 -17 -34
 -12  -5  20   9  16  47  43  17
 -46 -26  47 -40  12 -31 -25  13
  -7  39 -20  26  11 -19  32 -15
  45 -10 -28  31 -46 -29 -29 -22
Максимальный А[2,6]=47
4,6(48 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ