Задание:
Помогите исправить программу. Она должна вычислять среднее арифметическое всех чисел в массиве меньших 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'ы
Знаете другой ответ?