Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Бедный студент
0 / 0 / 0
Регистрация: 23.12.2012
Сообщений: 10
#1

Одномерный массив. Минимум, среднее арифметическое, попарные суммы.

14.01.2013, 10:40. Просмотров 964. Ответов 1
Метки нет (Все метки)

Задан одномерный массив размерностью М. Вставить первым минимальный элемент. В обновленном векторе определить среднее арифметическое среди положительных элементов. Вычислить и распечатать наибольшее значение из попарных сумм( суммы рядом стоящих элементов)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.01.2013, 10:40
Ответы с готовыми решениями:

Массив, высчитывающий среднее арифметическое чисел, и среди них находит максимум и минимум
Доброго времени суток! Прошу скорейшей помощи! Только-только сел за pascal. До...

Одномерный массив. Среднее арифметическое четных элементов.
Помогите:) Вычислить среднеарифметичсекое значение четных по значению...

Одномерный массив, найти среднее арифметическое элементов
в массиве с элементами {b}_{1}=1\;;\;{b}_{k}=sink+coskk=2,3, ..., 10 Найти...

Создать одномерный массив, содержащий среднее арифметическое элементов кратных 5 для каждого столбца
Задание: 1.Дан двумерный массив целых чисел. 2.Создать одномерный массив,...

Дан одномерный числовой массив. Найти среднее арифметическое элемен-тов, расположенных между первым и вторым нулевыми элементами
Дан одномерный числовой массив. Найти среднее арифметическое элемен-тов,...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,687
Записей в блоге: 1
14.01.2013, 10:56 #2
Лучший ответ Сообщение было отмечено Бедный студент как решение

Решение

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
Uses Crt;
Var A:array[1..101] of integer;
    i,k,m,imin,max,t:integer;
    sr:real;
Begin
    ClrScr;Randomize;
    write('Введите M<=100: ');readln(m);
    writeln('Исходный');
    For i:=1 to m do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    imin:=1;
    For i:=2 to m do
     if A[i]<A[imin] then imin:=i;
    writeln;
    writeln('Min = ',A[imin]);
    m:=m+1;
    t:=A[imin];
    For i:=m downto 2 do
     A[i]:=A[i-1];
    A[1]:=t;
    writeln('Полученный массив');
    For i:=1 to m do
     write(A[i]:4);
    writeln;
    k:=0;sr:=0;
    For i:=1 to m do
     if A[i]>0 then
     Begin
       inc(k);
       sr:=sr+A[i];
     End;
    writeln('Среднее арифметическое = ',sr/k:0:2);
    max:=A[1]+A[2];
    For i:=2 to m-1 do
     if A[i]+A[i+1]>max then max:=A[i]+A[i+1];
    writeln('Max из попарных сумм = ',max);
    read;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.01.2013, 10:56

Массив одномерный. Найти среднее арифметическое положительных элементов массива, значение которых больше K
1) Массив размером N заполнен случайными числами.Найти среднее арифметическое...

Определить среднее арифметическое квадратов элементов, стоящих на позициях, у которых как минимум один из индексов при делении на 3 дает остаток 2
Здравствуйте, форумчане. В этой программке нужно определить среднее...

Считать суммы элементов строк из файла и записать эти суммы в одномерный массив
Создать в своей папке файл с расширением txt, который будет содержать целые...


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

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

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