Массив 50

[Юп@тошк@]

Дан массив из 50 чисел. Заполните его случайными числами. Определить, сколько в нем элементов, отличных от последнего элемента. Вывести их количество.

uses crt;
type
  mas=array[1..50] of integer;
var
  a:mas;
  i,k:integer;
begin
  for i:=1 to 50 do
    begin
      a[i]:=random(100);
      writeln('a[',i,']=',a[i]:3);
    end;
    k:=0;
    
    for i:=1 to 49 do
      begin
       if a[i]<> a[50] then
         k:=k+1;
         writeln('kolichestvo=',k);
      end;
        writeln;
end.

что не так?

[DRAgon™]

uses crt;
type
mas=array[1..50] of integer;
var
a:mas;
i,k:integer;
begin
k:=0;
for i:=1 to 50 do
begin
a[i]:=random(100);
writeln('a[',i,']=',a[i]:3);
end;
for i:=1 to 49 do
begin
if a[i]<> a[50] then
k:=k+1;
end;
writeln('kolichestvo=',k);
writeln;
end.

[_-Re@l-_]

type
mas=array[1..50] of integer;
var
a:mas;

Ой....Это-то зачем???
Что, так

a:array[1..50] of Integer;

Уже не устраивает?

[DRAgon™]

ну надо же повыпендриваться

[Stilet]

Уже не устраивает?

Так написано в методичках потому что в методах пытаются накрутить студенту в перспективе решение этаких задач процедурами - т.е. передавать массив в процедуру, в паскале собственно это самый удобный способ - описать новый тип.
Так что с одной стороны это оправданно.