Составить матрицу по правилу - Pascal ABC

  1. Помогите составить матрицу вида: 11111 01110 00100 01110 11111


textual

Код:

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:integer;
begin
repeat
write('Размер матрицы до ',nmax,' n=');
read(n);
until n in [1..nmax];
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if((j>=i)and(j<=n-i+1))or((j<=i)and(j>=n-i+1))then a[i,j]:=1
    else a[i,j]:=0;
    write(a[i,j]:3);
   end;
  writeln;
 end;
end.


Похожие ответы
  1. Составить программу вычисления функции y=1-(sin(x))/(1-ln(x+1)) при изменении аргумента x в интервале 0,1<=x<=3,0 с шагом h=0,1

  1. Разработайте программу для решения задачи: «Составить график тренировок спортсмена на неделю по правилу: в первый день пловец должен проплыть 3 км, а в каждый следующий день на 10% больше, чем в предыдущий». Ответ предоставить в виде: таблицы: 1 день - 3 км; 2 день - 3,3 км; ..................... 7 день - х км.

  1. 1.Составить функцию нахождения площади треугольника по стороне и высоте, опущенной на эту сторону. С помощью данной функции вычислить площадь для N треугольников.Добавлено через 2 часа 9 минут пж ребят

  1. U - сумма элементов массива с нечетными номерами; R - количество нулевых элементов массива; S - номер первого нулевого элемента массива.

  1. Помогите решить. Вводим число, загоняем по элементам в массив, после в нем перебираем все комбинации цифр этого числа. Начало что-то типа такого

  1. Составить программу вычисления функции при заданных значениях аргументов. x=-0,5(0,1)0,5. Для вычисления ln(1-x)воспользоваться равенством

  1. Вычислить сумму элементов главной диагонали матрицы В (MxМ), М<=17. Если сумма окажется >10 , то исходную матрицу преобразовать по формуле В(I,J) = В(I,J) + 3.5, если сумма будет ≤10, то преобразование выполнить по формуле В(I,J) = В(I,J) – 3.5. Вычисленную сумму и элементы преобразованной матрицы вывести на экран

  1. Помогите решить задачку Дан текст. Составить множество символов, из которых он составлен. Повторяющиеся символы учитывать один раз.

  1. Требуется помощь по двумерным массивам в PascalABC. Никак не могу составить программу. Задание такое: "Сформирвать квадратную матрицу порядка n по заданному массиву" 1 0 0 0 0 6 0 2 0 0 5 0 0 0 3 4 0 0 0 0 3 4 0 0 0 2 0 0 5 0 1 0 0 0 0 6

  1. Объясните,пожалуйста, как составлять a11,a12,a21 и a22