|
0 / 0 / 0
Регистрация: 18.10.2010
Сообщений: 5
|
|
| 1 | |
Сформировать файл из модулей целых чисел24.12.2010, 23:02. Показов 482. Ответов 0
Метки нет (Все метки)
Вот составил: PROGRAM vlab12; VAR F:FILE OF INTEGER; x,i,s,N,k:INTEGER; sr:real; BEGIN ASSIGN(F,'D:\FA.DAT'); REWRITE(F); WRITELN('vvedite celie chisla'); READ(X); WHILE X<>0 DO BEGIN N:=abs(X); WRITE(F,N); READln(X); END; RESET(F); WRITELN('Sostav fayla:'); S:=0; k:=0; sr:=0; WHILE NOT EOF(F) DO BEGIN READ(F,X); WRITE(X:5); IF x MOD 2=0 THEn s:=s+x else k:=k+1; sr:=s/k; end; close(f); writeln; WRITELN('srednee arifmeticheskoe =',sr:5:3); END. но не могу понять где ее изменить чтоб она считала среднее арифметическое чисел с парными номерами.помогите
0
|
|
(|
|
| 24.12.2010, 23:02 | |
|
Ответы с готовыми решениями:
0
Сформировать файл из квадратов целых чисел
|
| 24.12.2010, 23:02 | |
|
Помогаю со студенческими работами здесь
1
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
