Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
alenka!
0 / 0 / 0
Регистрация: 16.01.2013
Сообщений: 11
#1

Дан двумерный массив целых чисел. Упорядочить по возрастанию элементы тех строк этого массива, где на главной диагонали простое число - Turbo Pascal

16.01.2013, 22:30. Просмотров 853. Ответов 1
Метки нет (Все метки)

Дан двумерный массив целых чисел. Упорядочить по возрастанию элементы тех строк этого массива, где на главной диагонали простое число.
Оформить в виде основной программы и процедуры или функции с параметрами.
http://www.cyberforum.ru/pascal/thread301933.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2013, 22:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дан двумерный массив целых чисел. Упорядочить по возрастанию элементы тех строк этого массива, где на главной диагонали простое число (Turbo Pascal):

Дан одномерный массив целых чисел. Вывести на экран все двузначные элементы этого массива.
Ребята, помогите пожалуйста! Дан одномерный массив целых чисел. Вывести на...

Двумерный массив.Дан массив 5 х 5. Определить сумму элементов тех строк, где диагональный элемент равен нулю и записать их в отдельный массив.
помогите составить программу. во задание:Дан массив 5 х 5. Определить сумму...

Ввести двумерный массив 3-значных целых чисел (80 строк, 10 столбцов) заменить все элементы 3-ей строки на число 6. Выдать результат.
Доброго времени суток) Помогите пожалуйста решить несколько задач на массивы. Я...

Дан двумерный массив размером 10*10. Вывести на экран часть массива расположенную выше главной диагонали. Массив заполняется случайными числами.
Дан двумерный массив размером 10*10. Вывести на экран часть массива...

Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной диагоналях
Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на...

1
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
17.01.2013, 01:53 #2
Лучший ответ Сообщение было отмечено alenka! как решение

Решение

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j,k,m,p: byte;
  tmp: integer;
begin
  randomize;
  write('Введите размер массива n: ');
  readln(n);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  writeln;
  
  for i:=1 to n do
  begin
    k:=0;
    // проверяем - простое ли число на гл. диагонали
    for m:=1 to a[i,i] do
      if a[i,i] mod m=0 then inc(k);
    // если да - сортируем строку
    if k=2 then
      for p:=2 to n do
        for j:=n downto p do
        if a[i,j-1]>a[i,j] then
        begin
          tmp:=a[i,j-1];
          a[i,j-1]:=a[i,j];
          a[i,j]:=tmp;
        end;
  end;
  writeln('Полученный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:3);
    writeln;
  end;
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.01.2013, 01:53
Привет! Вот еще темы с решениями:

Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на главной и побочной диагоналях
Дан двумерный массив целых чисел. Вычислить сумму элементов, расположенных на...

Дан двумерный массив,элементы массива умножить на число К.Вывести новый массив,проссумировать элементы массива по столбцам
Дан двумерный массив,элементы массива умножить на число К.Вывести новый...

Дан двумерный числовой массив A(n,n).Найти сумму положительных элементов массива стоящих на его главной диагонали.
Дан двумерный числовой массив A(n,n).Найти сумму положительных элементов...

Упорядочить по возрастанию элементы, расположенные на главной диагонали
Дан двумерный массив размера NxN. Упорядочить по возрастанию элементы,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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