Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Вычислить количество положительных компонентов файла https://www.cyberforum.ru/ pascalabc/ thread816334.html
Записать в файл последовательного доступа N целых чисел, полученных с помощью генератора случайных чисел. Вычислить количество положительных компонентов файла.
Переписать в другой файл все его строки с заменой в них символа «0» на символ «1» и наоборот Pascal ABC
Имеется текстовый файл. Переписать в другой файл все его строки с заменой в них символа «0» на символ «1» и наоборот.
Pascal ABC Среди данных шестизначных билетов найти "счастливый"
Счастливый билет - это билет, у которого сумма первых 3х и последних 3х чисел равна Помогите пожалуйста найти ошибку uses crt; type mass=array of integer; var a:longint; i:integer;
Pascal ABC Дано натуральное число.Определить,является ли разность его максимальной и минимальной цифр четными числами Дано натуральное число.Определить,является ли разность его максимальной и минимальной цифр четными числами. https://www.cyberforum.ru/ pascalabc/ thread816164.html
Pascal ABC Найти сумму всех чисел последовательности https://www.cyberforum.ru/ pascalabc/ thread816161.html
Дана последовательность целых чисел, оканчивающаяся нулем. Найти а)сумму всех чисел последовательности; б)количество всех чисел последовательности.
Pascal ABC Вывод на экран "столбиком" всех целых чисел от 100 до 80
Имеется фрагмент программы в виде оператора цикла с параметром, обеспечивающих вывод на экран "столбиком" всех целых чисел от 100 до 80. Оформить этот фрагмент в виде: а)оператор цикла с...
Задача на Цикл с условием: Дана последовательность ненулевых целых чисел, Pascal ABC
Задача на Цикл с условием: Дана последовательность ненулевых целых чисел, оканчивающаяся нулем. Определить, сколько раз в этой последовательности меняется знак. (Например, в последовательности 10, —...
Pascal ABC Верно ли, что цифра a встречается в числе реже, чем цифра b? Дано натурально число. Верно ли, что цифра a встречается в нем реже, чем цифра b? https://www.cyberforum.ru/ pascalabc/ thread816131.html
Pascal ABC Дано натуральное число https://www.cyberforum.ru/ pascalabc/ thread816126.html
а) Верно ли, что сумма его цифр мельне a? б) Верно ли, что сумма его цифр больше b? в) Верно ли, что это число k-значное? Составное условие и вложенный условный оператор не использовать. г) Верно...
Pascal ABC Дано натурально число. Определить: а) сколько раз в нем встречается цифра a; б) количество его цифр, кратных z (значение z вводится с клавиатуры; z=2,3,4); в) сумму его цифр, больших a (значение a вводится с клавиатуры; 0 меньше... https://www.cyberforum.ru/ pascalabc/ thread816122.html
Модератор
60146 / 45298 / 31259
Регистрация: 18.05.2008
Сообщений: 108,781
23.03.2013, 19:57 0

Дан двухмерный массив размером n*n. Сформировать одномерный массив из элементов заданного массива, расположенных над главной диагональю

23.03.2013, 19:57. Просмотров 2961. Ответов 6
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..(nmax*nmax-nmax)div 2]of integer;
    n,m,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
m:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  m:=m+1;
  b[m]:=a[i,j];
 end;
writeln('Массив элементов над главной диагональю');
for i:=1 to m do
write(b[i],' ');
readln
end.


Вернуться к обсуждению:
Дан двухмерный массив размером n*n. Сформировать одномерный массив из элементов заданного массива, расположенных над главной диагональю
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.03.2013, 19:57

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сформировать одномерный массив из элементов заданного массива, расположенных под главной диагональю
Дан двумерный массив размером n . Сформировать одномерный массив из элементов заданного массива,...

Сформировать одномерный массив из элементов матрицы, расположенных над главной диагональю
Дан двумерный массив размером nxn. Сформировать одномерный массив из элементов заданного массива,...

Сформировать одномерный массив из элементов матрицы, расположенных над главной диагональю
Дан двумерный массив размером n*n.Сформировать одномерный массив из элементов заданного массива...

Сформировать одномерный массив из элементов матрицы, расположенных над главной диагональю
Дан двухмерный массив размером n*n. Сформировать одномерный массив из элементов заданного массива,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.