сервис вопросов и ответовЗаполнить двухмерный массив размером 6 × 6 следующим образом:
10-11 класс|
|
1 1 1 1 1 1
1 1 0 0 0 1
1 0 1 0 0 1
1 0 0 1 0 1
1 0 0 0 1 1
1 1 1 1 1 1
!ответ!
uses crt;
const n=6;
var i,j,k: integer;
a: array [1..6,1..6] of integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if (i=j) or (j=1) or (i=1) or (i=6) or (j=6) then
a[i,j]:=1
else
a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
Allahay555
05 февр. 2017 г., 20:55:46 (7 лет назад)
Irinavishnya26
05 февр. 2017 г., 21:35:27 (7 лет назад)
const
n = 6;
var
i, j, k: integer;
a: array [1..6, 1..6] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if (i = j) or (j = 1) or (i = 1) or (i = 6) or (j = 6) then
a[i, j] := 1
else
a[i, j] := 0;
write(a[i, j]:3);
end;
writeln();
end;
end.
Ответить
Другие вопросы из категории
Напишите эффективную программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество натуральных чисел,
кратных числу a, на отрезке [a,b] (включая концы отрезка). Программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1≤a≤b≤30000. Программа должна вывести одно число: количество натуральных чисел кратных числу a на отрезке [a,b]
Помогите...Перевести число 112 у двоичную,восьмеричною и шестнадцатеричную систему счисления. 2.Перевести числа 163_8 и 18В_16 в десятичную систему
счисления. 3.Перевести число 100110010100_2 ввосьмеричную и шестнадцатеричную систему счисления. Помогите пожалуйста)
Читайте также
Написать в Паскаль.
Двухмерный массив размером M*N заполнить случайными целыми числами в интервале от -90 до 0. Вывести полученный массив на экран в виде таблицы. Найти количество элементов кратных 4 в последней строке.
Написать в Паскаль.
Двухмерный массив размером M*N заполнить целыми числами в интервале от 2 до 9. Вывести полученный массив на экран в виде таблицы. Найти сумму элементов кратных 2 в первых трёх столбцах.
Помогите написать программу в паскале. За ранее спасибо. Задача на двумерный массив. Задание 2.
Заполнить двухмерный массив NM [1..5,1..5] константами:
100 101 102 103 104
200 201 202 203 204
300 301 302 303 304
400 401 402 403 404
500 501 502 503 504
Заполнить двухмерный массив NM [1..5,1..5] числами по образцу:
Исходный массив:
составьте программу дискриминанта так, чтобы а,b,с -задавались генератором случайных чисел (random);+эта программа должна включать в себя
!двухмерный массив размером 5 на 10 ( в Pascal )
Вы находитесь на странице вопроса "Заполнить двухмерный массив размером 6 × 6 следующим образом:", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.