Создайте квадратный массив и поверните на 180 градусов - Turbo Pascal (33853)

Формулировка задачи:

Создайте квадратный массив из N строк и N столбцов,состоящий из натуральных чисел.Поверните его на 180 и выведите результат на экран монитьора

Код к задаче: «Создайте квадратный массив и поверните на 180 градусов - Turbo Pascal (33853)»

textual
program mas;
uses crt;
 
var C:array[1..100] of integer;
 
    i,j,k,n:integer;
begin
    clrscr;
    write('vvedite kolichestvo elementov massiva C = ');
    readln(n);
    writeln('vvedite elementi massiva');
    for i:=1 to n do
       for j:=1 to n do
       begin
         readln(C[i,j]);
       end;
 
    writeln('Nachalnay matrica');
    for i:=1 to n do
    begin
       for j:=1 to n do
       begin
         write(C[i,j]);
       end;
     writeln;
     end;
 
    for i:=1 to n do
    begin
       for j:=1 to n do
          begin
            k:=c[i,j];
            c[i,j]:=c[n-i+1,n-j+1];
            c[n-i+1,n-j+1]:=c[i,j];
          end;
    end;
   writeln('konechnay matrica');
    for i:=1 to n do
    begin
       for j:=1 to n do
       begin
         write(C[i,j]);
       end;
     writeln;
     end;
readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.143 из 5


СДЕЛАЙТЕ РЕПОСТ