Объяснение:
program zadacha;
var d, o: text;
i, j, k, m, s: integer;
begin
assign(d, 'c:\data.txt');
reset(d);
assign(o, 'c:\output.txt');
rewrite(o);
i := 1;
j := 1;
readln(d, m);
s := m;
while not(eof(d)) do
begin
readln(d, k);
if k = m
then i := i + 1
else
begin
if i > j then
begin
s := m;
j := i
end;
m := k
end;
end;
writeln(o, 'Число: ', s, ', длина цепочки: ', i);
close(d);
close(o)
end.
1)
const n = 4; m = 4;
var A:array[1..n, 1..m] of integer;
i, j, iMax, jMax:integer;
begin
write('Заполнение - Матрица:');
for i:=1 to n do begin
for j:=1 to m do begin
read(a[i, j])
end;
end;
write('Матрица:');
for i:=1 to n do begin
writeln;
for j:=1 to m do begin
write(a[i, j]:3, ' ');
end;
end;
iMax:=1;
jMax:=1;
for i:=1 to n do
for j:=2 to n do begin
if a[i, j] > a[iMax, jMax] then begin
iMax:=i;
jMax:=j;
end;
end;
writeln;
writeln('Максимальный элемент: A[', iMax, ', ', jMax, ']=', a[iMax, jMax]);
end.
Вторую не успел сделать, надо уехать.
Объяснение:
