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();
