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

@LOLIk8 · Регистрация: 22.05.2011

Студворк — интернет-сервис помощи студентам

1.Дана действительная квадратная матрица порядка n, найти наименьший и наибольший элементы матрицы, и поменять их местами друг с другом.

2.Дан двумерный массив размером 13 х 12. Найти количество пар «соседних» чисел оканчивающихся на цифру 5

3.Получить матрицу
1 0 0 ... 0 0 1
1 1 0 ... 0 1 1
1 1 1 ... 1 1 1
. . . ... . . .
1 1 0 ... 0 1 1
1 0 0 ... 0 0 1
//---------------

4.Дан текст, в который входят любые символы. Удалить из него все символы не являющиеся буквами или цифрами

5.Напечатать все слова, удалив в нем повторяющиеся буквы.

6.Дан текст определить, содержит ли он символы, отличные от букв и пробела

7.Дан одномерный массив состоящая из 20 вещественных чисел.
Оформить задачу с помощью процедуры, нахождения максимального,
минимального элемента и определение среднего арифметического
элементов массива.

8.Осуществить циклический сдвиг элементов квадратной матрицы
размером М х N вправо на k элементов таким образом: элементы
первой строки сдвигаются в по*следний столбец сверху вниз, из
него — в последнюю строку справа налево, из нее — в первый
столбец снизу вверх, из него — в первую строку; для остальных
элементов — аналогично (оформить в виде процедуры).

9.Создать файл содержащий фамилии, имена, день,
месяц и год рождения. Написать две программы:
первая должна создавать такой файл, а вторая должна запрашивать ввод с клавиатуры фамилии и
выводить на экран все данные об этом человеке.

10.Вычислить среднее арифметическое цифр введенного числа
ПОМОГИТЕ ПОЖАЛУЙСТА, был бы очень благодарен)

@Daemon025 · 22.05.2011, 12:19

1)

Pascal

    uses crt;
    const nmax=10;
    type mas=array[1..nmax,1..nmax] of integer;
    var i,j,n,min,max,tmp:integer;
        A:mas;
begin
  repeat
    write('n= ');
    readln(n);
  until n in [2..nmax];
 
  randomize;
  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;
  
  max:=11;
  min:=max;
  for i:=1 to n do
  for j:=1 to n do
  begin
    if A[i][j] < A[min div 10][min mod 10] then min:=i*10+j;
    if A[i][j] > A[max div 10][max mod 10] then max:=i*10+j;
  end;
 
  tmp:=A[max div 10][max mod 10];
  A[max div 10][max mod 10]:=A[min div 10][min mod 10];
  A[min div 10][min mod 10]:=tmp;
  Readln;
end.

@LOLIk8 · 22.05.2011, 13:18 **[ТС]**

Сообщение от Daemon025

1)

Pascal

    uses crt;
    const nmax=10;
    type mas=array[1..nmax,1..nmax] of integer;
    var i,j,n,min,max,tmp:integer;
        A:mas;
begin
  repeat
    write('n= ');
    readln(n);
  until n in [2..nmax];
 
  randomize;
  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;
  
  max:=11;
  min:=max;
  for i:=1 to n do
  for j:=1 to n do
  begin
    if A[i][j] < A[min div 10][min mod 10] then min:=i*10+j;
    if A[i][j] > A[max div 10][max mod 10] then max:=i*10+j;
  end;
 
  tmp:=A[max div 10][max mod 10];
  A[max div 10][max mod 10]:=A[min div 10][min mod 10];
  A[min div 10][min mod 10]:=tmp;
  Readln;
end.

spasibo))

@LOLIk8 0 / 0 / 1 Регистрация: 22.05.2011 Сообщений: 13
		1
	Дана действительная квадратная матрица порядка n, найти наименьший и наибольший элементы матрицы, и поменять их местами друг с другом. 22.05.2011, 12:03. Показов 2677. Ответов 2 Метки нет (Все метки) 1.Дана действительная квадратная матрица порядка n, найти наименьший и наибольший элементы матрицы, и поменять их местами друг с другом. 2.Дан двумерный массив размером 13 х 12. Найти количество пар «соседних» чисел оканчивающихся на цифру 5 3.Получить матрицу 1 0 0 ... 0 0 1 1 1 0 ... 0 1 1 1 1 1 ... 1 1 1 . . . ... . . . 1 1 0 ... 0 1 1 1 0 0 ... 0 0 1 //--------------- 4.Дан текст, в который входят любые символы. Удалить из него все символы не являющиеся буквами или цифрами 5.Напечатать все слова, удалив в нем повторяющиеся буквы. 6.Дан текст определить, содержит ли он символы, отличные от букв и пробела 7.Дан одномерный массив состоящая из 20 вещественных чисел. Оформить задачу с помощью процедуры, нахождения максимального, минимального элемента и определение среднего арифметического элементов массива. 8.Осуществить циклический сдвиг элементов квадратной матрицы размером М х N вправо на k элементов таким образом: элементы первой строки сдвигаются в по*следний столбец сверху вниз, из него — в последнюю строку справа налево, из нее — в первый столбец снизу вверх, из него — в первую строку; для остальных элементов — аналогично (оформить в виде процедуры). 9.Создать файл содержащий фамилии, имена, день, месяц и год рождения. Написать две программы: первая должна создавать такой файл, а вторая должна запрашивать ввод с клавиатуры фамилии и выводить на экран все данные об этом человеке. 10.Вычислить среднее арифметическое цифр введенного числа ПОМОГИТЕ ПОЖАЛУЙСТА, был бы очень благодарен) 0

	22.05.2011, 13:18

Опции темы

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

Решение