Смотри на скриншот я сделал просто не хочу чтоб форматировка текста портилась.Все работает! const n=3;m=4; var a:array [1..n,1..m] of integer; i,j,k,max:Integer; ind:array [0..1] of Integer=(1,1); begin Randomize; for i:=Low(a) to High(a) do for j:=Low(a) to High(a[1]) do a[i,j]:=Random(100); for i:=Low(a) to High(a) do begin writeln; for j:=Low(a) to High(a[1]) do write(a[i,j]:3); end; max:=a[1,1]; for i:=Low(a) to High(a) do for j:=Low(a) to High(a[1]) do if a[i,j]> max then begin max:=a[i,j]; ind[0]:=i; ind[1]:=j; end; writeln; Writeln(' Max element: ',max); Write(' Index: '); for i:=0 to 1 do write(ind[i],' '); Readln; end.
Program p1; var n,a,i,max,fl:integer; begin writeln('Введите кол-во участников>>'); readln(n); max:=0; fl:=0; for i:=1 to n do begin writeln('Введите кол-во правильных ответов, данных участником ',i); readln(a); if (a > max) then max:=a; if a=0 then fl:=1; end; if fl=1 then writeln('YES') else writeln('NO'); writeln('Победитель набрал ',max,' '); end.
Пример: Введите кол-во участников>> 5 Введите кол-во правильных ответов, данных участником 1 15 Введите кол-во правильных ответов, данных участником 2 18 Введите кол-во правильных ответов, данных участником 3 0 Введите кол-во правильных ответов, данных участником 4 8 Введите кол-во правильных ответов, данных участником 5 10 YES Победитель набрал
n = [int(i) for i in input("Введите 3 числа через пробел: ").split(' ')]
print(f"Среднее арифметическое: {sum(n) / len(n)}");