Вопрос Я написала программу не могу понять чего не хватает.
- Автор темы бумиви
- Дата начала
" после s:=A+A[i+1]" надо начать думать. н-р зачем эта строка здесь и ещё после s:=0;?
Задача предполагает два (2) последовательных цикла. ввод и поиск максимальногоподсчёт количества максимальных
Задача предполагает два (2) последовательных цикла. ввод и поиск максимальногоподсчёт количества максимальных
const
n = 10;
var
A: array[1..n] of integer;
i, max, s: integer;
begin
readln(A[1]);
max := A[1];
s := 1;
for i := 2 to n do
begin
readln(A);
if A > max then
begin
max := A;
s := 1;
end
else if A = max then s += 1;
end;
writeln(s);
end. Или так: begin
var ar := ReadArrInteger(10);
ar.CountOf(ar.Max).Println
end.
n = 10;
var
A: array[1..n] of integer;
i, max, s: integer;
begin
readln(A[1]);
max := A[1];
s := 1;
for i := 2 to n do
begin
readln(A);
if A > max then
begin
max := A;
s := 1;
end
else if A = max then s += 1;
end;
writeln(s);
end. Или так: begin
var ar := ReadArrInteger(10);
ar.CountOf(ar.Max).Println
end.
Похожие темы
