Скорость передачи данных через adsl-соединение равна 128000 бит с. сколько времени в минутах займет передача файла объемом 5 мбайт по этому каналу.

Вот на картинке смотреть

Ошибки:

1) writeln("Введите размерность массива); - здесь опечатка (пропущены кавычки), должно быть writeln('Введите размерность массива');

2) writeln('Введите массив'); - пользователь не вводит массив, здесь надо написать writeln('Создаём массив...');

3) Перед циклом нужно определить начальные значения переменных с и s
c:=0; s:=0;

4) У первого цикла есть begin, но нет end

5) s:=s+a[i]; эта команда повторяется дважды - второй раз (после if) не нужен

6) Лишний end; (предпоследняя строка программы)

И ещё не ошибки, а два совета:
1) пользуйся отступами, тогда лучше видно структуру программы. Когда все команды идут подряд в одной строке, легко запутаться.
2) При выводе среднего арифметического используй формат вывода   s1:0:2 
тогда результат будет округлён до двух знаков после запятой, и не будет таких монстров вроде 16.65432468734246873435

Исправленная программа:
Program Zadacha;
Uses crt;
var
   a:array[1..1000] of integer;
   c,i,n,s :integer;
   s1: real;
begin;
   clrscr;
   writeln('Введите размерность массива');
   readln(n);
   writeln('Создаём массив...');
   c:=0; s:=0;
   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/n;
   writeln('Массив A:');
   for i:=1 to n do write(a[i]:4);
   writeln;
   writeln('Среднее арифметическое равно=',s1:0:2);  end.

Ну так как знаю язык программы Dev-C++, напишу и если я не ошибаюсь это массив :-)
#include
main()
{
int i, n;
float s;
printf("n=");
scanf("%d", &n);
int a[n];
for(i=0; i {
printf("\n a[%d]=", i);
scanf("%d", &a[i]);
}
s=0;
for(i=0; i s=s+a[i];
printf("s=%f", s);
puts("Massiv:");
for(i=0; i printf("\n a[%d]=%d", i, a[i]);
getchar();
return(0);
}
напишу краткое объяснение, 1- пишем н, произвольное, это количемтво этих исел будет,
2- создаем массив с и ( параметр массива) меньшим н там мы пишем эти числа, сумму которых нужно всчитать
3- находим сумму
4- пишем чемк она равна
5- выводим массив
и все
если программа не бкдет идти напиши вконце место return(0); => getchar();