Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
kapusta666
0 / 0 / 0
Регистрация: 12.12.2011
Сообщений: 5
1

элемент массива

13.12.2011, 20:29. Просмотров 849. Ответов 2
Метки нет (Все метки)

Найти наибольший элемент массива В[1..5,1..5]. Если он находится на главной диагонале, то элементы первого рядка заменить его значением.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2011, 20:29
Ответы с готовыми решениями:

Найти максимальный элемент массива . Поменять столбец, содержащий этот элемент с последним столбцом двумерного массива
Ввести двумерный массив размером 3*4. Найти максимальный элемент массива ....

Нормировать элемент каждого массива по максимальному(разделить все элементы массива на максимальных элемент)
Ребяяят, помогите, пожалуйста. Задание: Дано три массива A, B. C....

Поменять местами минимальный элемент первого массива и максимальный элемент второго массива
Нужно создать два массива( например A и D) состоящих из 10 элементов заданных...

Заменить последний положительный элемент массива на второй элемент массива
Заменить последний положительный элемент массива, элементы которого вводятся с...

Поменять местами минимальный элемент массива и первый элемент массива
Здравствуйте! Помогите решить задачу. Заранее спасибо! Создать массив целых...

2
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
13.12.2011, 21:08 2
Лучший ответ Сообщение было отмечено kapusta666 как решение

Решение

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
uses crt;
var b: array [1..5,1..5] of integer;
    i,j,imax,jmax: integer;
begin
imax:=1; jmax:=1;
writeln('Исходная матрица ');
for i:=1 to 5 do
    begin
    for j:=1 to 5 do
        begin
        b[i,j]:=random(201)-100;
        write(b[i,j]:4);
        if b[imax,jmax]<b[i,j] then
           begin
           imax:=i;
           jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Наиб. элемент=',b[imax,jmax],', строка ',imax,', столбец ',jmax);
if imax=jmax then
   begin
   for j:=1 to 5 do
       b[1,j]:=b[imax,jmax];
   writeln('Итоговая матрица');
   for i:=1 to 5 do
       begin
       for j:=1 to 5 do
           write(b[i,j]:4);
       writeln;
       end;
   end
   else writeln('Наиб. элемент не лежит на главной диагонали');
readkey
end.
0
kapusta666
0 / 0 / 0
Регистрация: 12.12.2011
Сообщений: 5
13.12.2011, 21:36  [ТС] 3
КонецСвета, огромное спасибо!)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2011, 21:36

В заданном массиве A(N) вместо a1 запишите наибольший элемент массива, а вместо aN — наименьший элемент массива.
В заданном массиве A(N) вместо a1 запишите наибольший элемент массива, а...

В заданном массиве A(N) вместо a1 запишите наибольший элемент массива, а вместо aN — наименьший элемент массива
В заданном массиве A(N) вместо a1 запишите наибольший элемент массива, а...

Минимальный элемент главной диагонали массива, максимальный элемент побочной диагонали массива
Определить: а) минимальный элемент главной диагонали массива; б)...


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

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

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