Суть программы Input (A[255], input.txt); // Вводим из файла строку в массив А[255] N = 0; NMax = 0; // Счетчик удачных дней M = 0; // Счетчик длины массива (он может быть и меньше 255) Цикл по i от 1 до 255 If (A[i] <> "У") and (A[i] <> "Н") then M = i - 1; // Как только мы встретили значение, не равное ни У ни Н, так считаем это концом. Конец цикла по i If A[1] = "У" then N = 1 // Проверяем 1-ую ячейку Цикл по i от 1 до M-1 if (A[i] = "Н") and (A[i+1] = "У") then N = 1; // Начало серии У if (A[i] = "У") and (A[i+1] = "У") then N = N + 1; // Продолжение серии У if (A[i] = "У") and (A[i+1] = "Н") then // Окончание серии У if N >= NMax then NMax = N; // Проверяем длину серии end if Конец Цикла по i Output (output.txt, NMax) // вывод максимальной длины серии в файл. Конец программы
Const NN=50; Var a:array [1..NN,1..NN] of integer; maxi,maxj,mini,minj,i,j,n,m:integer; begin writeln('Введите кол-во строк и столбцов массива: '); readln(n,m); for i:= 1 to n do for j:= 1 to m do begin write('a[',i,',',j,']= '); readln(a[i,j]); end; writeln; writeln('Получившийся массив: '); for i:= 1 to n do begin for j:= 1 to m do write(a[i,j]:4); writeln; end; maxi:=1; maxj:=1; mini:=1; minj:=1; for i:= 1 to n do for j:= 1 to m do begin if a[i,j]>a[maxi,maxj] then begin maxi:=i; maxj:=j; end else if a[i,j]<a[mini,minj] then begin mini:=i; minj:=j; end; end; writeln; writeln('Получившийся массив: '); i:=a[maxi,maxj]; a[maxi,maxj]:=a[mini,minj]; a[mini,minj]:=i; for i:= 1 to n do begin for j:= 1 to m do write(a[i,j]:4); writeln; end; end.
Варианты разные: Photoshop, GIMP, Paint