N=int(input('задайте размер массива '));
<span>lst=input().split(' ');
</span><span>mx=0;
</span><span>for i in range (0,n):
</span><span> if (int(lst[i])>mx):
</span><span> mx=int(lst[i]);
</span><span> k=1;
</span><span> else:
</span><span> if (int(lst[i])==mx):
</span><span> k+=1;
</span><span>print(mx,k);
</span>задайте размер массива 10
<span>-15 10 14 7 21 19 13 21 11 17
</span><span>21 2
</span>
Первая (N - количество чисел в исходной последовательности):
const N = 5;
var number, i, count : integer;
begin
count := 0;
for i := 1 to N do
begin
write('Input number: ');
readln(number);
if (number mod 5 = 0) and (number mod 7 <> 0) then
count := count + 1;
end;
writeln('Count: ',count);
readln;
end.
Вторая:
const N = 5;
var number, i, count : integer;
begin
count := 0;
for i := 1 to N do
begin
write('Input number: ');
readln(number);
if (number < 0) then
writeln('Square of ',number,' equals ',number*number);
end;
readln;
end.
Windows диск
Команды мыши
Меню пуск
Подменю панели задач
Окно команды
Полосы прокрутки