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

Найти наибольший элемент массива

13.12.2011, 22:33. Просмотров 837. Ответов 2
Метки нет (Все метки)

найти наибольший элемент массива А[1..5, 1..5]. Если он находится на главной диагонале, то элементы первого ряда заменить его значением

помогите плиз)))
а то нифига немогу написать ахинея какаято получаетса(((
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2011, 22:33
Ответы с готовыми решениями:

Найти наибольший элемент массива
1) Найти наибольший элемент массива В и отнять его от элементов всех столбцов кроме того в котором...

Найти наибольший элемент массива
Решить: Создать массив с именем А из 10-ти элементов, задав значения его элементов с помощью...

Найти наибольший элемент массива
Помогите найти наибольший элемент массива, уменьшить его на 2.Вывести исходный и получившийся...

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

Задать и найти наибольший элемент массива
Помогите,пожалуйста. Рандомно задать одномерный массив длинной (0...100), найти наибольший...

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

Решение

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 a: 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
        a[i,j]:=random(201)-100;
        write(a[i,j]:4);
        if a[imax,jmax]<a[i,j] then
           begin
           imax:=i;
           jmax:=j;
           end;
        end;
    writeln;
    end;
writeln('Наиб. элемент=',a[imax,jmax],', строка ',imax,', столбец ',jmax);
if imax=jmax then
   begin
   for j:=1 to 5 do
       a[1,j]:=a[imax,jmax];
   writeln('Итоговая матрица');
   for i:=1 to 5 do
       begin
       for j:=1 to 5 do
           write(a[i,j]:4);
       writeln;
       end;
   end
   else writeln('Наиб. элемент не лежит на главной диагонали');
readkey
end.
0
AlexVampire
0 / 0 / 0
Регистрация: 14.11.2011
Сообщений: 8
13.12.2011, 23:35  [ТС] 3
благодарю
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2011, 23:35

Найти наибольший (наименьший) элемент двумерного массива
Найти наибольший (наименьший) элемент двумерного массива. Указать его индексы

Найти наибольший (наименьший) элемент двумерного массива
Найти наибольший (наименьший) элемент двумерного массива. Указать его индексы. ...

Найти наибольший по абсолютному значению элемент массива v
Найти наибольший по обсолютныму значению элемент массива v, суму елементов, что ему передают, и...


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

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

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