Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов.
10-11 класс
|
Паскаль АВС:
Program Ainur59;
uses crt;
const n=10;
var
i,j:integer;
matr:array[1..n,1..n] of integer;
diag:array[1..n] of integer;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln('Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов');
randomize;
writeln('Матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
matr[i,j]:=random(100)-50;
write(matr[i,j]:4,' ');
if i=j then diag[i]:=matr[i,j];
end;
writeln();
end;
writeln();
writeln('Mассив диагональных элементов:');
for i:=1 to n do
write(diag[i]:4,' ');
end.
Другие вопросы из категории
одноразрядного представления). Если таким способом закодировать последовательность символов ЗАКОЛКА и записать результат в шестнадцатеричном коде, то получится:
1) 4531253 2) 9876 3) E832 4) 238E
----------------------------
Помогите,пожалуйста! Желательно с кратким решением,потому что самой понять тоже хочется)
го, что запрещенный предмет будет обнаружен у 23 осужденных
для K от 1 до N выполнить
вперёд K
направо 90
кц
Ввести N и определить расстояние между начальным и конечным положением исполнителя.
Помогите решить на паскале
Читайте также
положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.
двумерной матрицы, находящиеся над побочной диагонали; упорядочить их по возрастанию и найти их среднее арифметическое.
тке полученных компонентов массива. Исходными данными являются одномерный массив, элементы которого задаются с помощью датчика случайных чисел от -50 до +50 и целое положительное число К
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.