SharikTLT's Blog

program lab;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Math;

var
  mas0,mas1,mas2:array[1..4,1..4] of integer;
  i,j,min,max, abss,minI,minJ,maxI,maxJ,absI, absj:Integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Randomize;  //Генерация случайных чисел
  Writeln('Isxodni massiv'); //Вывод текста
  for i:=1 to 4 do  //Цикл для обработки строк
   begin
    for j:=1 to 4 do  //Цикл для обработки столбцов
    begin
    mas0[i,j]:=Random(100);   //Присваивание случайного значения в диапазоне от 0 до 100
    write(mas0[i,j],' ');
    end;
   writeln; //переход на новую строку
   end;
  min:=mas0[1,1];        //
  min:=mas0[1,1];        //   Присваиваем к минимуму и максимуму значение первого элемента массива
  abss:=abs(mas0[1,1]);   //
  minI:= 0;
  minJ:= 0;
  maxI:= 0;
  maxJ:= 0;
  absI:= 0;
  absJ:= 0;
  for i:=1 to 4 do
   for j:= 1 to 4 do
    begin
    if mas0[i,j] > max  then begin max:=mas0[i,j]; maxI:=i; maxJ:=j; end;  //Проверка, если элемент больше максимума, то его значение и координаты записываються в переменные
    if mas0[i,j] < min  then begin min:=mas0[i,j]; minI:=i; minJ:=j; end;  //Проверка, если элемент меньше минимума, то его значение и координаты записываються в переменные
    if abs(mas0[i,j]) > abss  then begin abss:=mas0[i,j]; absI:=i; absJ:=j; end; // Проверка, если элемент по модулю больше абсолютного максимума, то его значение и координаты записываються в переменные
    if (mas0[i,j] mod 2 = 0) then mas1[i,j]:= 0 else mas1[i,j]:=mas0[i,j]; // Проверка, если остаток от деления равен нулю, то элемент с этим индексом в mas1 принимает значение 0
    if j = 1 then mas2[i,2]:=mas0[i,j] else   //проверка, если столбец 1, то записать значение во второй
                                      if j = 2 then mas2[i,1]:= mas0[i,j] else mas2[i,j]:=mas0[i,j];    // если же это второй, то записать в первый, если ни то ни другое, то просто скопировать значение

    end;
  Writeln('Resultati');
  Writeln('Zamena 4etnix elementov na 0');
  For i:=1 to 4 do        //вывод элементов массива на экран, в котором заменяли четные элементы на нули
   begin
   for j:=1 to 4 do
    write(mas1[i,j],' ');
   Writeln;
   end;
    Writeln('Zamena stolbcov');   // вывод элементов массива на экран, в котором 1 и 2 столбец меняли местами
  For i:=1 to 4 do
   begin
   for j:=1 to 4 do
    write(mas2[i,j],' ');
   Writeln;
   end;
  Writeln('Min(i=',minI,', j=',minJ,')=',min,' Max(i=',maxI,', j=',maxJ,')=',max,' AbsMax(i=',absI,', j=',absJ,')=',abss); //вывод минимального, максимального и максимального по модулю значения и их координат
  Readln; //ожидание выхода из программы

end.

Приветствую на моем первом опыте в сфере блоггинга. Так как с конкретной темой я еще не определился, на первое время буду придерживаться своим основным интересам. И все же, с горем по полам, начнем этот нелегкий, но очень интересный вид деятельности. И так, как сказал известный человек, «Поехали!».