Найти сумму и количество элементов, абсолютное значение которых больше среднеарифметического - Pascal ABC

  1. Ввести целочисленный массив, состоящий из 17 элементов. Найти сумму и количество элементов, абсолютное значение которых больше среднеарифметического положительных элементов.


textual

Код:

var
mass: array [0..16] of integer;
i,k,sum:integer;
sred:real;
BEGIN
for i:=0 to 16 do
  begin
  write('Введите [',i+1,'] элемент массива: ');
  readln(mass[i]);
  end;
  
sum:=0; k:=0;
for i:=0 to 16 do
  begin
  if mass[i]>0 then 
    begin
    inc(k);
    sum:=sum+mass[i];
    end;
  end;
sred:=sum/k;
 
sum:=0; k:=0;
for i:=0 to 16 do
  begin
  if abs(mass[i])>sred then 
    begin
    inc(k);
    sum:=sum+mass[i];
    end;
  end;
writeln('Сумма = ',sum,', количество = ',k);
END.


Похожие ответы
  1. Здравствуйте, помогите разобраться! Дано задача. Кубики. Кубик с ребром N см покрасили и разрезали на кубики с ребром 1 см. При этом появились такие, у которых окрашено разное количество граней. Например, если N = 3, то после разрезания будет 8 кубиков, у которых окрашено три грани, 12 с двумя гранями, 6 с одной, а один кубик будет совсем неокрашенный. Составьте программу, которая бы определяла, сколько кубиков с каждой возможным количеством окрашенных граней. Как можно создать Ввод и Вывод файл не как не могу! Задачу из интернета скачал. Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 program cubes; uses crt; var x,x1,x2,x3,x0,y,z,k,n:integer; s:string; f,g:text; begin assign(f,'cubes.dat'); reset(f); readln(f,y); close(f) ; x3:=8; x1:=sqr(y-2)*6; x0:=(sqr(y-2))*(y-2); x2:=(y-2)*4*2+(y-2)*4; assign(g,'cubes.sol'); rewrite(g); writeln(g,'0/',x0,' 1/',x1,' 2/',x2,' 3/',x3); close(g); end.

  1. Введите массив из 5 элементов с клавиатуры и найдите количество элементов , запись которых в 2с.с-палиндром(например,10101 в двоичной=21)

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

  1. Помогите написать программу Создать вектор М, содержащий количество отрицательных элементов каждого столбца матрицы z(3,4).

  1. Найти количество цифр, равных 0, в заданном натуральном числе.

  1. помогите написать программу на pascal ABC а) В строке удалить символ двоеточие и подсчитать количество удаленных символов. б) Выбрав любое базовое слово по своему усмотрению, составить программ, которая из базового слова получает 4 новых слов, используя операцию сцепления и команду Copy.

  1. Дан файл f, содержащий сведения о студентах: ФИО, группа, оценки за экзамены. Вывести в файл f1 и на экран сведения о студентах-хорошистах; подсчитать их количество. Использовать при решении подпрограммы. Предусмотреть проверку открытия файла.

  1. Определить количество отрицательных элементов в тех строках, которые содержат хотя бы один нулевой элемент.

  1. Дан текст, в которой слова разделены пробелами, а в конце стоит точка. Если количество слов в тексте нечётное - вывести среднее слово; если чётное - вывести 2 средних слова.

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Заранее спасибо!