Яв этом совсем ни черта не понимаю=( 1. определить количество элементов, равных максимальному элемента массива. 2. составить и запрограммировать алгоритм обработки одного массива на языке pascal. за .
Это к первому вопросу: Program n1; Uses Crt; Var a: array[1..10] of integer; i,k,max,m:integer; Begin for i:=1 to 10 do begin a[i]:=random(11)+10; write(a[i]:4); end;
writeln;
max:=a[1]; for i:=2 to 10 do if (max<a[i]) then max:=a[i];
k:=0; for i:=1 to 10 do if (max=a[i]) then k:=k+1; writeln('Kol-vo elementov ravnih max lementu massiva: ',k); End.
Program n1;
Uses Crt;
Var
a: array[1..10] of integer;
i,k,max,m:integer;
Begin
for i:=1 to 10 do begin
a[i]:=random(11)+10;
write(a[i]:4);
end;
writeln;
max:=a[1];
for i:=2 to 10 do
if (max<a[i]) then max:=a[i];
k:=0;
for i:=1 to 10 do
if (max=a[i]) then k:=k+1;
writeln('Kol-vo elementov ravnih max lementu massiva: ',k);
End.
Второй вопрос просто-напросто не понял.