Найти среднее арифметическое положительных элементов - Turbo Pascal

  1. Подскажите: Найти средне - арифметическое положительных элементов.


textual

Код:

uses crt;
var ser,i,x:integer;
begin
i:=0;ser:=0;
clrscr;
Write('Enter = ');readln(x);
while (x<>0) do 
begin
if (x>0) then begin 
                ser:=x+ser;   //находиш суму (+) чисел
                inc(i);       //количество (+) чисел
              end;
Write('Enter = ');readln(x);                        
end;
Writeln('Answer = ',ser/i);     //средне - арифметическое положительных элементов  [сума всех чисел / их количество]
end.


Похожие ответы
  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. Подскажите в чем ошибка? Матрица в файле txt 0 10 17 8 0 12 19 10 0 1 0 7 0 21 17 1 0 0 3 11 0 8 0 0 0 16 3 5 0 7 3 16 0 4 0 12 0 11 3 4 0 10 19 21 0 5 0 10 0

  1. В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив bk. Буду очень благодарен.

  1. помогите решить задачу. В массиве X(n,M), найти среднее арифметическое тех элементов, значения которых не превышают заданную величину А. P.S. можно по проще как-нибудь.

  1. Помогите написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел, только чтоб в одной строке... Рекамендуемый вид экрана: Введите элементы массива (10 целых чисел) в одной строке и нажмите . -> 23 0 45 -5 12 0 -2 30 0 64 Сумма элементов массива: 184 Количество ненулевых элементов: 7 Среднее арифметическое ненулевых элементов: 23.86

  1. найдите среднее арифметическое элементов заданного массива из 8 целых чисел и определите сколько элементов данного массива больше среднего

  1. Дан вещественный массив А[4][3]. Найти среднее арифметическое значение положительных элементов массива А. Вывести результат на экран.

  1. Дан одномерный массив латинских букв. Отсортировать их методом выбора в порядке убывания. Вычислить среднее арифметическое кодов элементов отсортированного массива, имеющих индекс кратный трем. Вывести на экран отсортированный массив и вычисленное значение. Помогите решить пожалуйста!!! Срочно,могу отблагодарить! Заранее спасибо!

  1. Здравствуйте, ситуация такая: имеется решенная задача на листочке, нужно написать на паскале, но нам его не объясняли(а объясняли на фортране, собственно на нем то я и решил ее). Собственно вот сам вопрос задачи: Подсчитать как изменится средне арифметическое элементов матрицы, если во всех столбцах с номерами большими, чем номер столбца с макс. количеством отрицательных элементов, заменить все отр. элементы их модулями! Выкладываю картинки с хостинга ниже, а также код фортрана, может кто-то глянет, что не понятно будет) Сам решать пробовал, до сих пор сижу и читаю, остановился пока на 1 подпрограмме, может у вас быстрее получится)Fortran1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 dimension a(5,5), x(5), c(5) real a,p,t,c integer i,j,x logical b data a /2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26 / write(*,16) ((a(i,j),j=1,5),i=1,5) 16 format (2x, 'a=', 5(f5.1)) write(*,*) 'c' read(*,*) c write(*,*) 'P,T(Pc2)) then     flag=.false.     end if     i=i+1     end do     end     subroutine pp2(a1,n,x1)     dimension a1(n,n), x1(n)     real a1     integer x1     do i=1,5,1       x1(i)=0       end do  do j=1,5,1    do i=1,5,1      x1(j)=x1(j) +a1(j,i)      end do      end do end Спасибо вам огромное заранее, даже за то, что прочитали это)

  1. В функцию передаётся строка S, в ней есть и пробелы и слова. Пробелы могут быть в любом месте. Есть слова в которых последний символ это цифра . Напишите функцию, которая будет считать среднее арифметическое этих цифр. Строка 5zxcv yuio9 sdfgg poi7 rgn 9876 8 Ответ 7.5 не могу понять, почему считает неверно, помогите, пожалуйста.