uses crt;
var a:array[1..20,1..20] of integer;
x:integer;
n,i,j:byte;
begin
clrscr;
randomize;
write('n=');readln(n);
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
end;
writeln;
end;
write('Нажмите Enter...');
readln;
writeln('Левый треугольник:');
for i:=1 to n do
begin
for j:=1 to i do
write(a[i,j]:4);
writeln;
end;
write('Нажмите Enter...');
readln;
writeln('Правый треугольник:');
for i:=1 to n do
begin
for j:=1 to n do
if j>=n-i+1 then write(a[i,j]:4)
else write(' ':4);
writeln;
end;
write('Нажмите Enter...');
readln;
writeln('Песчаные часы:');
for i:=1 to n do
begin
for j:=1 to n do
if ((j>=i)and(j<=n-i+1))or((j>=n-i+1)and(j<=i))then write(a[i,j]:4)
else write(' ':4);
writeln;
end;
readln
end.
Похожие записи/страницы:
- Преобразовать матрицы A и B таким образом: если диагональный элемент отрицателен,то все последующие элементы…
- За несколько буханок хлеба по две монеты и несколько банок консерв заплатили 100 монет.Сколько могли купить…
- Даны три вещественных числа x,y,z. Определить, существует ли треугольник с длинами сторон x,y,z. Если…
- Даны три матрицы А(4,3), В(5,4), С(5,5). Найти AТ, BT, CT, где AТ, BT, CT- транспонированные матрицы. Ввод…
- С помощью клавиатуры вводится 3 числа : a , b ,c . Если существует треугольник с такими сторонами ,то определить…
- Определить, существует ли треугольник с заданными длинами сторон x, y, z Pascal(Паскаль)
- Определить, является ли треугольник со сторонами a, b, c, равносторонним - Pascal(Паскаль)
- Пусть даны три числа.Если они могут быть длинами сторон треугольника, определите его…