Помогите пожалуйста, я в этом совсем ни черта не понимаю=(1. Определить количество элементов, равных максимальномуэлемента массива.2. Составить и запрограммировать алгоритм обработки одногомассива на языке PASCAL. спасибо за по...
Помогите пожалуйста, я в этом совсем ни черта не понимаю=(
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
Не нашли ответ?
Похожие вопросы