Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/18: Рейтинг темы: голосов - 18, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 13.04.2014
Сообщений: 9
1

Поменять местами первую строку и строку, в которой находится первый нулевой элемент

13.11.2014, 17:56. Просмотров 3398. Ответов 1
Метки нет (Все метки)


Сделать с помощью массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.11.2014, 17:56
Ответы с готовыми решениями:

Дан двумерный массив. Вставьте первую строку после строки, в которой находится первый встреченный минимальный элемент
Спасайте 2. Дан двумерный массив. Вставьте первую строку после строки, в которой находится...

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

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

Поменять местами первую строку и последнюю строку матрицы
Вот что я делал и хочу дальше в таком стиле делать , const n=3; var a:array of integer;...

__________________
Помогаю в написании студенческих работ здесь.
1
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
13.11.2014, 18:58 2
Лучший ответ Сообщение было отмечено Lok_lok как решение

Решение

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
const n=5;m=4;
var   a:array[1..n,1..m]of integer;
var i,j:integer;
    i0:integer;
    f:boolean;
begin
    f:=false;
    i0:=-1;
    writeln('исходная');
    for i:=1 to n do
     begin
      for j:=1 to m do
       begin
        a[i,j]:=-10+random(21);
        write(a[i,j]:4);
        if (not f) and (a[i,j]=0) then begin i0:=i;f:=true end
       end;
      writeln
     end;
    if i0=1
     then writeln('нулевой находится в 1 строке')
     else 
      begin
       if i0=-1
        then writeln('нулевого элемента нет')
        else
          begin
           for j:=1 to m do
            begin
             a[1,j]:=a[1,j]+a[i0,j];
             a[i0,j]:=a[1,j]-a[i0,j];
             a[1,j]:=a[1,j]-a[i0,j]
            end;
           writeln('полученная');
           for i:=1 to n do
            begin
             for j:=1 to m do write(a[i,j]:4);
             writeln
            end
          end
      end;
    readln  
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.11.2014, 18:58

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

Поменять местами первую строку со строкой проходящей через наибольший по модулю элемент побочной диагонали
Задана целочисленная матрица Н(1..n.1..n). Поменять местами первую строку со строкой проходящей...

В матрице поменять местами первую и третью строку
В массиве 5 на 5, нужно поменять местами - первую и третью строку.

В матрице поменять местами первую строку и строку, в которой находится первый нулевой элемент.
Поменять местами первую строку и строку, в которой находится первый нулевой элемент. Принять, что...

Вставить первую строку после строки, в которой находится первый встреченный минимальный элемент
Помогите,пожалуйста,решить задачу!( Использовать подпрограммы (ввода, вывода, обрабатывающей...


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

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

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