сервис вопросов и ответов1. Задать двумерный массив (10х10) по формуле, так чтобы значения элементов совпадали с номерами столбцов в квадрате.
10-11 класс|
|
2. Задать двумерный массив (4х4) случайными значениями от 12 до 18 включительно. Вывести сумму значений элементов каждого столбца матрицы.
3. Задать двумерный массив (7х7) случайными значениями от 12 до 18 включительно. В каждом столбце матрицы найти количество элементов, значения которых меньше 14.
4. Задать двумерный массив (3х3) с клавиатуры, поменять значения элементов 1 столбца со вторым.
5. Найти минимальный элемент матрицы (5х5), заданной случайными значениями от 1 до 5 включительно, лежащие ниже главной диагонали.
Aleks5878
17 марта 2014 г., 17:40:15 (10 лет назад)
Lululilovo
17 марта 2014 г., 19:13:07 (10 лет назад)
VAR
i, j: Integer;
a: Array [1..10] of Array [1..10] of Integer;
BEGIN
for i := 1 to 10 do
for j := 1 to 10 do a[i][j] := j*j;
for i := 1 to 10 do begin
for j := 1 to 10 do Write(a[i][j],' '); Writeln; end;
END.
VAR
i, j: Integer;
a: Array [0..4] of Array [1..4] of Integer;
BEGIN
for i := 1 to 4 do
for j := 1 to 4 do begin
a[i][j] := Random(7)+12;
a[0][j] := a[0][j] + a[i][j];
end;
for i := 1 to 4 do begin
for j := 1 to 4 do Write(a[i][j],' '); Writeln; end;
Writeln;
for i := 1 to 4 do Write(a[0][i],' ');
END.
VAR
i, j: Integer;
a: Array [0..7] of Array [1..7] of Integer;
BEGIN
for i := 1 to 7 do
for j := 1 to 7 do begin
a[i][j] := Random(7)+12;
if (a[i][j] < 14) then Inc(a[0][j]);
end;
for i := 1 to 7 do begin
for j := 1 to 7 do Write(a[i][j],' '); Writeln; end;
Writeln;
for i := 1 to 7 do Write(a[0][i],' ');
END.
VAR
i, j: Integer;
a: Array [0..3] of Array [1..3] of Integer;
BEGIN
for i := 1 to 3 do
for j := 1 to 3 do Read(a[i][j]);
for i := 1 to 3 do begin
a[0][i] := a[1][i]; a[1][i] := a[2][i];
a[2][i] := a[0][i]; end;
for i := 1 to 3 do begin
for j := 1 to 3 do Write(a[i][j],' '); Writeln; end;
END.
VAR
i, j, m: Integer;
a: Array [1..5] of Array [1..5] of Integer;
BEGIN
for i := 1 to 5 do
for j := 1 to 5 do begin
a[i][j] := Random(5)+1;
end;
for i := 1 to 5 do begin
for j := 1 to 5 do Write(a[i][j],' '); Writeln; end;
m := 6;
for i := 1 to 5 do
for j := 1 to 5 do
if (i > j)and(m > a[i][j]) then m := a[i][j];
Writeln(a[i][j]);
END.
Скаладжонсон
17 марта 2014 г., 20:32:41 (10 лет назад)
VAR
i, j: Integer;
a: Array [1..10] of Array [1..10] of Integer;
BEGIN
for i := 1 to 10 do
for j := 1 to 10 do a[i][j] := j*j;
for i := 1 to 10 do begin
for j := 1 to 10 do Write(a[i][j],' '); Writeln; end;
END.
Cdtn11
17 марта 2014 г., 21:31:17 (10 лет назад)
там в первом значения должны быть равны номеру столбцов в квадрате или номеру столбцов в квадрате 10X10(матрице)?
Tomirism00
17 марта 2014 г., 23:48:41 (10 лет назад)
я вообще в этом ничего не понимаю((( тупо переписала задание....
Поспелка
18 марта 2014 г., 0:54:36 (10 лет назад)
всё правильно кроме 5-ой там writeln(m) а не writeln(a[i][j])
Barsovaolya
18 марта 2014 г., 3:47:07 (10 лет назад)
Да, точно, спасибо
Ответить
Другие вопросы из категории
1. Дано n чисел. Найти колличество тех, которые делятся на 5, и не делятся на 7.
2. Найти квадраты всех отрицательных чисел среди N заданных.
3. Найти количество чисел, среди N введенных,которые имеют нечетные порядковые номера, а сами являются четными числам.
4. напишите программу для вычисления суммы:
- 1*1!+2*2!+3*3!+....+n*n!
- 1*3+3*5+5*7+...n(n+2)
- 1+11+111+...+111+1-n слагаемых.
Помогите, пожалуйста написать программы для паскаля, очень нужно. Заранее спасибо.
Читайте также
Помогите пожалуйста
Задать двумерный массив А (7, 7) с
помощью датчика случайных чисел и вывести его на экран в виде таблицы. Затем
удвоить все его элементы и снова вывести на экран. Оформите вывод массива в виде
процедуры.
помогите пожалуйста решить в паскале. Создайте двухмерный массив Х, имеющий четыре строки и три столбца, и найдите в нем максимальный по абсолютному
значению элемент, а также номера строки и столбца, содержащих этот элемент. Например, в массиве, показанном справа, максимальный по абсолютному значению элемент равен 8, он находится во 2-й строке 3-го столбца.
Ребята, помогите пожалуйста Даны двумерные массивы A[m,n], B[m,n]. Сформировать двумерный массив Cтакой же размерности, в котором каждый элемент
C[i,j] равен среднему арифметическому элементов A[i,j] и B[i,j].
Вы находитесь на странице вопроса "1. Задать двумерный массив (10х10) по формуле, так чтобы значения элементов совпадали с номерами столбцов в квадрате.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.