Помогите исправить программу. Она должна вычислять среднее арифметическое всех чисел в массиве меньших 50. Вот программа:
Program Zadacha;
Uses crt;
var a:array[1..1000] of integer;
c,i,n,s :integer;
s1: real;
begin;
clrscr;
writeln("Введите размерность массива);
readln(n);
writeln(Введите массив);
for i:=1 to n do
begin a[i]:=random(100);
if a[i]<50 then begin inc(c); s:=s+a[i];end;s:=s+a[i];s1:=s/N;
writeln(Массив A:);
for i:=1 to N do write(a[i]:4);
writeln;
writeln(Среднее арифметическое равно=,s1);
end;
end.

Var 
  a:array[1..1000] of integer;
  c,i,n,s :integer;
  s1: real;begin;
  readln(n);
  for i:=1 to n do begin
    a[i]:=random(100);
    if a[i]<50 then begin
      inc(c);
      s:=s+a[i];
    end;
  end;
  s1:= s/c;
  for i:=1 to N do write(a[i]:4);
  writeln;
  writeln(s1);
end.

исправила, все работает, только добовьте ваш модуль CRT обратно и поясняющие writelnы

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.