Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 10.06.2013
Сообщений: 4
1

Найти номера отрицательных элементов и среднеарифметическую сумму положительных элементов

06.09.2013, 12:53. Показов 659. Ответов 3
Метки нет (Все метки)

сформировать одномерный массив целых чисел случайным образ n элементов,взятых из промежутка [-5;7].
найти номера отрицательных элементов и среднеарифметическую сумму положительных элементов.
вывести простые элементы и взаимно-простые с первым числом.
рассчитываю на вас!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.09.2013, 12:53
Ответы с готовыми решениями:

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

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

Найти количество положительных элементов и сумму индексов отрицательных элементов массива
помогите решить пожалуйста: Найти количество положительных элементов и сумму индексов...

Найти модуль суммы отрицательных элементов матрицы и сумму положительных элементов
Составить программу, которая в каждой строке матрицы B(m,n), m≤10, n≤12, находит...

3
Модератор
63380 / 47073 / 32446
Регистрация: 18.05.2008
Сообщений: 114,104
06.09.2013, 13:01 2
Цитата Сообщение от CrownClown Посмотреть сообщение
среднеарифметическую сумму
Это что за чудо?
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,029
Записей в блоге: 1
06.09.2013, 13:36 3
Pascal
1
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
Var A:array[1..100] of integer;
    i,j,n,k:byte;
    sr,t1,t2:integer;
Begin
    write('Кол-во элементов: ');readln(n);
    writeln('Массив');
    For i:=1 to n do
    Begin
      A[i]:=random(13)-5;
      write(A[i]:3);
    End;
    writeln;
    writeln('Номера отрицательных');
    For i:=1 to n do
     if A[i]<0 then write(i:3)
      else 
      Begin
        if A[i]<>0 then sr:=sr+A[i];
        inc(k);
      End;
    writeln;
    if k>0 then writeln('Среднее = ',sr/k)
     else writeln('Нету положительных');
    writeln('Простые элементы');
    For i:=1 to n do
    Begin
      k:=0;
      For j:=2 to A[i] div 2 do
       if A[i] mod j = 0 then inc(k);
      if k=0 then write(A[i]:3);
    End;
    writeln;
    writeln('Взаимнопростые с первым элементом');
    For i:=2 to n do
    Begin
      t1:=abs(A[1]);t2:=abs(A[i]);
      While t1<>t2 do
       if t1>t2 then t1:=t1-t2
        else t2:=t2-t1;
      if t1=1 then write(A[i]:3);
    End;
    readln;
End.
1
0 / 0 / 0
Регистрация: 10.06.2013
Сообщений: 4
10.09.2013, 21:37  [ТС] 4
опечатался,среднеарифметическое значение,ну сумму всех положительных и поделить на их количество
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.09.2013, 21:37

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Найти сумму положительных элементов и количество отрицательных элементов двумерного массива вещественного типа
Помогите, пожалуйста, сделать вот ету задачу в Free Pascal: создайте программу &quot;Подсчет&quot; в которой...

Найти сумму значений положительных элементов выборки с нечетными и отрицательных элементов с четными индексами
Здравствуйте! Дано задание: Найти сумму значений положительных элементов выборки, имеющих нечетные...

Найти сумму отрицательных элементов и колличество положительных элементов.
Массив одномерный,n=15ю Элементы вводить с клавиатуры.Найти сумму отрицательных элементов и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.