Сформировать квадратную матрицу порядка n по заданному образцу
10-11 класс
|
2 1 1 … 1 1 1
3 2 1 … 1 1 1
3 3 2 … 1 1 1
……………..
3 3 3 … 3 2 1
3 3 3 … 3 3 2
const
nn = 20;
var
i, j, n: integer;
a: array[1..nn, 1..nn] of integer;
begin
writeln('Задайте размер матрицы n');
readln(n);
if n > nn then
writeln('Вы превысили допустимый размер матрицы 20')
else begin
writeln('Матрица-результат');
for i := 1 to n do
begin
writeln;
for j := 1 to n do begin
if i < j then a[i, j] := 1
else if i = j then a[i, j] := 2
else a[i, j] := 3;
write(a[i, j]:2)
end;
end;
writeln
end
end.
Тестовый пример:
Задайте размер матрицы n
10
Матрица-результат
2 1 1 1 1 1 1 1 1 1
3 2 1 1 1 1 1 1 1 1
3 3 2 1 1 1 1 1 1 1
3 3 3 2 1 1 1 1 1 1
3 3 3 3 2 1 1 1 1 1
3 3 3 3 3 2 1 1 1 1
3 3 3 3 3 3 2 1 1 1
3 3 3 3 3 3 3 2 1 1
3 3 3 3 3 3 3 3 2 1
3 3 3 3 3 3 3 3 3 2
Комментарий удален
Alviko пожалуйста попробуй сделать новую программу (прочти новые сообщения )
Другие вопросы из категории
центре,ребят срочно надо помогите))))
задание по теме кодирование и измерение информации
1. Сообщение, записанное
буквами из 64-символьного алфавита,
содержит 20 символов. Какой объем
информации оно несет?
2. Какой объем видеопамяти необходим для хранения четырех страниц изображения, если битовая глубина равна 24, а разрешающая способность дисплея - 800 х 600 пикселей?
Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Найти количество слов в строке.
Читайте также
1 0 0 .. 0 0 1
1 1 0 ... 0 1 1
1 1 1 ... 1 1 1
...................
1 1 0 ... 0 1 1
1 0 0 ...0 0 1
Дана квадратная матрица порядка S. Обнулить из неё каждый третий столбец.В полученном массиве найти сумму чётных элементов.
№2 В данном одномерном массиве Х[1..n] найти сумму отрицательных элементов , кратных 7.