Помогите решить одну задачку:
Дана целочисленная прямоугольная матрица. Определить номер строки, в которой находится самая длинная серия одинаковых элементов (оформить в виде процедуры).
Программирование на Delphi
Страница: 1
Сообщений 1 страница 2 из 2
Поделиться12019-05-05 12:51:25
- Администратор
- Зарегистрирован: 2019-05-05
- Приглашений: 0
- Сообщений: 27
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Провел на форуме:
5 часов 3 минуты - Последний визит:
2022-09-13 05:40:47
Поделиться22019-05-05 12:52:31
- Новичок
- Зарегистрирован: 2019-05-05
- Приглашений: 0
- Сообщений: 5
- Уважение: [+0/-0]
- Позитив: [+0/-0]
- Провел на форуме:
53 минуты - Последний визит:
2019-05-08 10:29:02
Прошу любить и жаловать
Код:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n = 5;
var
ms: array [1..n, 1..n] of integer;
i,j,count,max,i_max: integer;
begin
randomize;
max := 0; i_max := 0;
for i:=1 to n do
begin
count := 0;
for j:=1 to n do
begin
ms[i,j] := random(2);
if j>1 then
if ms[i,j] = ms[i,j-1]
then inc(count) else count := 0;
write(ms[i,j]:3);
end;
if count > max then
begin
max := count;
i_max := i;
end;
writeln;
end;
writeln;
writeln(i_max);
readln;
end.Страница: 1
