Дан массив из указателей на целые числа, вывести все числа данного массива большие среднего арифметического

@IgorAvas · Регистрация: 12.10.2016

Author24 — интернет-сервис помощи студентам

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

@Hitoku · 14.03.2017, 00:42

Pascal

type p=^integer;
     ar=array[1..100] of p;
     par=^ar;
var pa:par;
    n,i:byte;
    sr:real;
begin
     sr:=0;
     write('Количество элементов = '); readln(n);
     getmem(pa,n*4);
     for i:=1 to n do begin
     new(pa^[i]);
     pa^[i]^:=random(1000);
     end;
     for i:=1 to n do sr:=sr+pa^[i]^;
     sr:=sr/n;
     writeln('Среднее арифметическое = ', sr);
     for i:=1 to n do begin
       if pa^[i]^>sr then write(pa^[i]^:6);
     end;
end.

@IgorAvas 0 / 0 / 0 Регистрация: 12.10.2016 Сообщений: 86
		1
	Дан массив из указателей на целые числа, вывести все числа данного массива большие среднего арифметического 14.03.2017, 00:05. Показов 1813. Ответов 1 Метки нет (Все метки) Дан массив из указателей на целые числа вывести все числа данного массива большие среднего арефметического этого массива Заранее спасибо. 0

	14.03.2017, 00:42

Опции темы

Дан массив из указателей на целые числа, вывести все числа данного массива большие среднего арифметического

Решение