Программа: Определить сколько раз встречается макс. элемент

Задача: В целочисленном массиве определить, сколько раз встречается максимальный элемент

PROGRAM massmaxelem;
	USES crt;
	var A     :array[1..10] of integer; 
    	k,i,s :integer;
BEGIN
	k:=0;
	s:=0;
	for i:=1 to 10 do
	  begin
		A[i]:=random(10);
		if A[i] > k 
        then k:=A[i]
	  end;

	for i:=1 to 10 do
	  begin
		if A[i] = k 
        then s:=s+1;
	  end;
	Writeln('',k,' - максимальный элемент. В массиве встречается ',s,' р.');
END.

Просмотрело: 2612

Возможно, Вы искали: