terehin863
?>

Склавиатуры вводится матрица n*m. 1. определить произведение всех чётных чисел в каждой строке и записать это произведение в последний столбец. 2. найти максимальный и минимальный элементы в каждой строке и поменять их местами 3. повернуть матрицу на 90 градусов по часовой стрелке решить в паскале

Информатика

Ответы

zdanovich90764
Будем считать, что числа n, m заранее известны.
Делать в Паскале динамические массивы - это очень большой геморрой.
1. PROGRAM Even
var i, j, P: integer;
var array A[1..n, 1..m] of integer;
BEGIN
for i:=1 to n do
  for j:=1 to m do readln (A[i, j]); // цикл ввода начального массива
for i:=1 to n do // цикл по строкам
begin
  P:=1; // произведение четных чисел
  for j:=1 to m do // цикл по столбцам
  begin 
    if (A[i, j] mod 2 = 0) then P:= P*A[i, j]; // умножаем очередное четное число
  end; 
  A[i, m] := P; // вместо последнего числа записываем произведение четных
end; 
for i:=1 to n do
  for j:=1 to m do writeln (A[i, j]); // цикл вывода конечного массива 
END.

2.  PROGRAM MinMax
var i, j, Q, min, nmin, max, nmax: integer;
var array A[1..n, 1..m] of integer;
BEGIN
for i:=1 to n do
  for j:=1 to m do readln (A[i, j]); // цикл ввода начального массива
for i:=1 to n do // цикл по строкам
begin
  min:=A[i, 1]; nmin:=1; max:=A[i, 1]; nmax:=1; // начальные значения
  for j:=1 to m do // цикл по столбцам
  begin  
    if (A[i, j] > max) then max:= A[i, j]; nmax = j;// устанавливаем максимум
    if (A[i, j] < min) then min:= A[i, j]; nmin = j;// устанавливаем максимум 
  end;
  Q:=A[i, nmin]; A[i, nmin]:=A[i, nmax]; A[i, nmax]:=Q; // меняем их местами
end;
for i:=1 to n do
  for j:=1 to m do writeln (A[i, j]); // цикл вывода конечного массива 
END.

3. PROGRAM Povorot 
var i, j, k, Q: integer;
var array A[1..n, 1..m], B[1..m, 1..n] of integer;
BEGIN
for i:=1 to n do
  for j:=1 to m do readln (A[i, j]); // цикл ввода начального массива
for i=1 to m do // цикл по m строкам нового массива (их m, как столбцов в А)
begin
   for j:=1 to n do // цикл по n столбцам нового массива (как строк в А)
     B[i, j]:=A[j, n-i+1]; // формируем новый массив
end;
for i:=1 to m do
  for j:=1 to n do writeln (B[i, j]); // цикл вывода конечного массива 
END.
Юрьевна174
 в лесу, в саванне или даже в вашем саду — живые существа непрестанно «разговаривают» друг с другом. В книге «Язык животных» говорится: «Живые организмы задействуют все органы чувств, а также всевозможные позы и движения, посылая и получая сигналы — кто-то едва уловимые, а кто-то и весьма явные, как, например, скунс в момент испуга. Они издают запахи, пищат, гогочут, поют и чирикают; обмениваются электрическими и световыми сигналами, меняют окраску, „танцуют“ или даже топчут и трясут находящуюся под ними поверхность» («The Language of Animals»). Что же они хотят этим сказать?
vasilyevjob6
Текстовая форма - это форма в виде текста. Бывает в файлах типа *.txt, *.doc, *.docx, *.odt и многих других.
В тексте каждая буква кодируется в определенной кодировке - ASCII (давно было в MS DOS), ANSI (в Windows), UTF (международная кодировка в любых системах). Есть еще экзотические кодировки типа KOI-8, GOST, ISO, но они редко встречаются.
В кодировке UTF-8 каждый знак кодируется 2 байтами, в остальных  кодировках (ASCII, ANSI и других) каждый знак кодируется 1 байтом.

Другие формы представления информации - звук, картинки, видео.
Это в компьютере. У людей есть еще чувства: запах, осязание, вкус.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Склавиатуры вводится матрица n*m. 1. определить произведение всех чётных чисел в каждой строке и записать это произведение в последний столбец. 2. найти максимальный и минимальный элементы в каждой строке и поменять их местами 3. повернуть матрицу на 90 градусов по часовой стрелке решить в паскале
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

tarrin-ka
Tochkamail370
Сергеевич1386
Стадник620
aleksvasin
svetlana-ladyga
alexst123012225
whiskyandcola
ylia89
PetrovDrozdov1785
dashakhmeleva6
AverinAA6077
kuliba
ИванМолчанов
Иванова