Форум программистов, компьютерный форум, киберфорум
Наши страницы

В матрице найти минимальный элемент того столбца, который обладает максимальной суммой своих элементов - Turbo Pascal

Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990 г http://www.cyberforum.ru/turbo-pascal/thread1762561.html
Помогите пожалуйста решить задачу. Только без массива из имени. Даны результаты переписи населения, которые хранятся в памяти ЭВМ. Напечатать фамилии, имена и подсчитать общее число жителей,...
Turbo Pascal Дан массив. Все элементы с четными номерами удвоить, с нечетными - уменьшить на 1 Дан массив. Все элементы с четными номерами удвоить, с нечетными - уменьшить на 1. http://www.cyberforum.ru/turbo-pascal/thread1762557.html
Анализ влияния сетевых атак типа DDoS на ПК Turbo Pascal
У кого-то есть примитивная программа с исходниками? Можете скинуть пожалуйста? Тема: Анализ влияния сетевых атак типа DDoS на ПК
Вычислить значение гиперболического синуса Turbo Pascal
Turbo Pascal Получить последовательность по правилу http://www.cyberforum.ru/turbo-pascal/thread1762330.html
Получить последовательность dk, dk-1, ..., d0 десятичных цифр числа 100!-2^100, , т. е. такую целочисленную последовательность, в которой каждый член di удовлетворяет условию 0≤di≤9 и, дополнительно,...
Turbo Pascal Периодическая функция Помогите решить) Имеется действительное число а . Вычислите f ( a ) , где функция f - это периодическая функция с периодом 1,5, что совпадает на отрезке с функцией x^3-2,5x var a: double;... подробнее

Показать сообщение отдельно
ezhukov67
22 / 22 / 31
Регистрация: 10.05.2014
Сообщений: 52
14.06.2016, 22:04
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
uses  Crt;
const n=10;
type  Tmatr=array[1..n,1..n] of integer;
var   a:Tmatr;
      i,j,min,sum,t,k:integer;
begin
      ClrScr;
      Writeln('Matrix:'); Writeln; Randomize;
      sum:=-MaxInt; t:=0; k:=0;
      for i:=1 to n do
       begin
         for j:=1 to n do
          begin
            a[i,j]:=Random(98)+1;
            Write(a[i,j]:4);
          end;
         Writeln;
       end;
      Writeln;
      for j:=1 to n do
        begin
          for i:=1 to n do
           t:=t+a[i,j];
          if t>sum
           then begin
                 sum:=t;
                 t:=0;
                 k:=j;
               end
          else   t:=0;
        end;
       min:=MaxInt;
        for i:=1 to n do
         if a[i,k]<min then
          min:=a[i,k];
       Writeln('Max summa v stolbce: ',k);
       Writeln('Min v stolbce ',k,' = ',min);
      ReadKey;
end.
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru