Обнулить элементы матрицы, лежащие одновременно выше главной и побочной диагоналей - Pascal - Pascal ABC

  1. Дана квадратная матрица порядка n. Обнулить элементы матрицы,лежащие одновременно выше главной и побочной диагоналей. Пожалуйста, СРОЧНО!!!


textual

Код к задаче: «Обнулить элементы матрицы, лежащие одновременно выше главной и побочной диагоналей - Pascal - Pascal ABC»

const n=11;
var a:array[1..n,1..n] of byte;
    i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if(j>i)and(j<n-i+1) then a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.

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

11   голосов, оценка 3.818 из 5



Похожие ответы
  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.Добавлено через 3 часа 24 минуты

  1. Проверить, встречаются ли среди 15 сгенерированных чисел из диапазона от -10 до 10 нулевые элементы

  1. Умножьте все элементы последнего столбца на максимальный элемент матрицы. Вывести на экран исходный массив и преобразованный массив. Закрасить элементы, расположенные в последнем столбце.

  1. Помогите пожалуйста написать данный код через процедуру

  1. преобразует массив по следующему правилу (через x' обозначены элементы массива x после преобразования): x'[k]=max x[i] при 1≤i≤k, k=1..n

  1. Напечатать все элементы массива s, индексы которых являются числами Фибоначчи (1, 2, 3, 5, 8, 13, …).

  1. Дан числовой массив (его нужно ввести) поменять местами элементы массива попарно: 1-2,3-4,5-6, и тд.. Заранее спасибо за помощь

  1. Добрый день! Помогите, пожалуйста, решить задачу Только каким-нибудь примитивным способом Дан массив целых чисел, длиной n, элементы которого могут повторяться. Удвоить все максимальные элементы (вставить после каждого такого же элемента).