Ваня ведёт дневник, где в том числе отмечает, делал он зарядку в этот день или нет. напишите программу, - id830232320220909 от hdhdhdhehd 09.09.2022 16:05

Question

Информатика: Ваня ведёт дневник, где в том числе отмечает, делал он зарядку в этот день или нет. напишите программу, которая по собранной статистике сообщит, сколько последних дней подряд ваня делал зарядку, а так же наибольшее число дней подряд когда он делал зарядку. формат входных данных дана строка, в которой каждый символ соответствует одному дню. знаком + отмечены дни, когда ваня делал зарядку, точкой когда нет. длина строки меньше 105 символов формат выходных данных выведите через пробел два числа. язык

hdhdhdhehd · Accepted Answer

Const
   N = 3;
Var
   A:array[1..N,1..N] of integer;
   i,j:integer;
   Min,S:real;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn;
Min:=0;
For i:= 1 to N do
    Min:=Min+Abs(A[i,1]);
For j:= 2 to N do
    Begin
    S:=0;
    For i:= 1 to N do
        S:=S+Abs(A[i,j]);
    if S<Min then Min:=S;
    End;
WriteLn('Min = ',Min);
End.

Пример работы программы:

Исходная матрица:
8   3   0
1   3 -5
3 -10 -6

Min = 11

MOGZ ответил