Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 05.12.2016
Сообщений: 3
1

Заменить все положительные элементы массива средним значением массива

05.12.2016, 11:01. Просмотров 2362. Ответов 1
Метки нет (Все метки)

Дан массив из 10 целых чисел. написать программу замены всех положительных элементов средним значением массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2016, 11:01
Ответы с готовыми решениями:

Каждый элемент массива A[k] заменить средним значением первых k элементов массива
Дан числовой массив A размера N. Каждый элемент массива A заменить средним значением первых k...

Заменить все положительные элементы массива на среднее арифметическое элементов массива
2.Дан массив из N элементов, заданных случайным образом на промежутке (-30;20). Заменить все...

Нужно найти элемент с минимальным значением и заменить его значением все отрицательные элементы массива
Написать алгоритм решения следующей задачи Задан масив K. Нужно найти элемент с минимальным...

Заменить на 0 все положительные элементы массива
Дан массив из 10 элементов. Если модуль суммы положительных элементов > суммы модуля отрицательных...

1
CAPITAL OF ROCK!
1280 / 707 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
05.12.2016, 11:21 2
Лучший ответ Сообщение было отмечено Nesq1uk как решение

Решение

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
const
    N = 10;
var
    ar: Array[1..N] Of Real;
    i: 1..N;
    sum: Real;
begin
    Randomize;
    Write('Сгенерированный массив:');
    sum := 0;
    for i := 1 to N do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4:0);
        sum := sum + ar[i];
    end;
    WriteLn;
    sum := sum/N;
    Write('Модифицированный массив:');
    for i := 1 to N do
    begin
        if (ar[i] > 0)
        then
            ar[i] := sum;
        Write(ar[i]:7:2);
    end;
    WriteLn;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2016, 11:21

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

Упорядочить по убыванию все положительные элементы одномерного массива, остальные элементы заменить нолями
Составить программу упорядочения (по убыванию) всех положительных элементов одномерного массива,...

N=8 Все отрицательные элементы массива заменить его абсолютным значением.
1.N=8 Все отрицательные элементы массива заменить его абсолютным значением. 2.Определить...

Заменить все элементы массива с отрицательным значением на значение минимального
Массив состоит из 20 случайных чисел в диапазоне от -100 до 100.Заменить все элементы с...

Задан вещественный массив размера N, заменить все положительные элементы массива
Задан вещественный массив размера N. Заменить все положительные элементы массива на значение...


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

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

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