profile
Опубликовано 6 лет назад по предмету Информатика от Yulya06

Помогите пожалуйста!
Кв. матрица:
Одномерный массив из положительных элементов матрицы
Удалить max
Переставить 2-ой и последний

  1. Ответ
    Ответ дан petyaGavrikov
    const n=4;
    var 
    a:array[1..n,1..n] of integer;
    b:array[1..n*n] of integer;
    i,j,k,max,imax,c:integer;
    begin
    Randomize;
    writeln('Исходный массив:');
    for i:=1 to n do
     begin
     for j:=1 to n do
      begin
       a[i,j]:=random(51)-25;
       write(a[i,j]:4);
      end;
      writeln;
     end;
    writeln('Полученный массив:');
    k:=0;
    for i:=1 to n do
     for j:=1 to n do
      if a[i,j]>0 then
       begin k:=k+1; b[k]:=a[i,j]; write(b[k]:4); end;
    writeln;  
    max:=b[1]; imax:=1;
    for i:=1 to k do
      if b[i]>max then begin max:=b[i]; imax:=i; end;
    writeln('max = b[',imax,'] = ',max);
    for i:=imax to k-1 do b[i]:=b[i+1];
    b[k]:=0;
    writeln('Измененный массив:');
    for i:=1 to k-1 do write(b[i]:4);
    writeln;
    c:=b[2]; b[2]:=b[k-1]; b[k-1]:=c;
    writeln('Измененный массив:');
    for i:=1 to k-1 do write(b[i]:4);
    writeln;
    end.

    Пример:
    Исходный массив:
      -8  -1   3   5
      22  25 -23 -17
      13   3  18  -1
       1 -19  13   0
    Полученный массив:
       3   5  22  25  13   3  18   1  13
    max = b[4] = 25
    Измененный массив:
       3   5  22  13   3  18   1  13
    Измененный массив:
       3  13  22  13   3  18   1   5
Самые новые вопросы