|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.02.2017, 10:51 | #1 |
Пользователь
Регистрация: 24.02.2017
Сообщений: 32
|
Добавить комментарии в программу:
var
a: array [1..10, 1..10] of integer; n: array [1..100] of integer; i, j, k, max, min, e, b, b1, p: integer; begin max :=a[1,1]; for i := 1 to 10 do begin for j := 1 to 10 do begin a[i, j] := random(100); Write(a[i, j]:4); if a[i, j] > max then max := a[i, j]; end; writeln(); end; k := 1; for i := 1 to 10 do for j := 1 to 10 do begin begin if a[i, j] = max then Writeln('MAX значение массива ', max, ' находится в ', i, ' строке ', j, ' столбце.'); end; n[k] := a[i, j]; k := k + 1; end; for p := 1 to 99 do begin min := n[p]; b1 := p; for k := p to 100 do if n[k] < min then begin min := n[k]; b1 := k; end; b := n[b1]; n[b1] := n[p]; n[p] := b; end; e := 0; for k := 1 to 100 do begin if e <= 10 then begin write(n[k]:4); e := e + 1; end; if e = 10 then begin e := 0; writeln; end; end; end. |
26.02.2017, 11:54 | #2 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,949
|
Код:
|
26.02.2017, 11:56 | #3 | |
Пользователь
Регистрация: 24.02.2017
Сообщений: 32
|
ОГРОМНОЕ СПАСИБО!)
Очень помогли)
Цитата:
|
|
26.02.2017, 12:01 | #4 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,949
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу добавить комментарии под youtube | bitix | Свободное общение | 12 | 16.05.2015 01:37 |
С++. Создать базовый класс список. Реализовать на базе списка стек и очередь... Объяснить программу (написать комментарии) | the_faceless | Помощь студентам | 0 | 17.02.2014 01:54 |
добавить отчеты в программу | bwitcher | Фриланс | 3 | 22.05.2013 00:01 |
добавить в трей программу | kta87 | Общие вопросы Delphi | 11 | 22.03.2012 18:33 |
Добавить в программу сортировку | Anton94.by | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 16.03.2012 22:59 |