Физиолечение в стоматологии : Фармакология
помогите,дорогие... что-то голова не варит совсем..найти среднее арифметическое одномерного массива размерностью 7, сформировать новый массив,каждый член которого будет увеличен на значение среднего арифметического, результат вывести тут жеочень прошу...
не такие мы уж дорогие, коли ИДЕИ подаем бесплатно;))) но только идеи;))type TMas= array[1..7] of real;mas: tMas;......beginsumma:=0;for i:=1 to dosumma:=summa+mas[i];writeln('sredne arifm:',summa/7);srednearifm:=summa/7;for i:=1 to domas2[i]:=mas[i]+srednearifm;for i:=1 to dowriteln(mas2[i]);end.надеюсь переменные ты опишешь сама ввод массива сделаешь;)).
Хы, спс, мне тож надо было))).
#3Suzumi • AishiteruНЕ ПОНЯЛ ВАС?;)).
можно всё целиком,а? ;) конечно понимаю,что все ленивые...но всё же ;)пытаюсь разобраться. физиолечение в стоматологии ..пока нихрена не понимаю,тему пропустила... поэтому попрошу целиком,если можно конечно=).
вы знаете, Алина, что этой группе самый злой даватель советов программ никому не пишу кроме красивых девушек, за это администрация группы попрекает меня тем что якобы домогаюсь;))) ШУЧУ;)type TMas= array[1..7] of real;var mas,mas2 tMas;summa,srednearifm real;beginfor i:=1 to do read(mas[i]);summa:=0;for i:=1 to dosumma:=summa+mas[i];writeln('sredne arifm:',summa/7);srednearifm:=summa/7;for i:=1 to domas2[i]:=mas[i]+srednearifm;for i:=1 to dowriteln(mas2[i]);readln;end.все осталась отладка- но она за вами...
