X=[] # задаем пустой список для чисел
while True: # открываем бесконечный цикл
i=int(input()) #вводим целое число
if i!=0: # если это число не 0
x+=[i] # то запишем его в список
else:
break # иначе стоп циклу
mx=max(x) # найдем максимальный элемент в списке
k=0 # зададим начальное значение счетчику 0
for i in x: # для каждого числа из списка х
if i==mx: # если это число равно максимуму
k+=1 # увеличим счетчик на 1
print(k) # вывод счетчика
Ответ д
С:\ это диск
Книги\ это директория(папка) в которой находится фаил
Рассказ.txt это сам фаил с расширением
.txt это просто расширение текстового файла
Var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]);
for i:=1 to n dofor j:=1 to n doif a[i,j] mod n =0 then a[i,j]:=a[i,j] div n;
for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.
var
B: array [1..14] of Real;
i: Integer;
s: Real;
begin
Randomize;
WriteLn ('Mассив:');
for i := Low (B) to High (B) do begin
B [i] := Random (100) - 50;
Write (B [i]:5:2, ' ');
end;
s := 0;
for i := Low (B) to High (B) do begin
if B [i] > 0 then
s := s + B [i];
end;
WriteLn;
WriteLn ('Сумма положительных элементов массива = ', s:5:2);
end.