Произвести заданные действия с одномерным массивом

@Evelina18036 · Регистрация: 03.02.2021

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

В массиве из 12 действительных чисел, найти среднее арифметическое элементов. Элементы определяются на интервале
(-10;15)
Измените задачу, чтобы:
• Осуществлялся подсчет сумы отрицательных элементов
• Вычислялось вреднее арифметическое отрицательных чисел.
При решении следующих задач самостоятельно определяете способ заполнения массива
(если не указан способ заполнения в условии задачи)
1. В массиве из 6 действительных чисел найти сумму элементов, стоящих на четных местах.
2. В массиве из 10 целых чисел, найти среднее арифметическое нечетных элементов массива.
3. В массиве из 9 целых случайных чисел, заполненном из интервала
(1; 10), найти сумму элементов, кратных 5, найти количество элементов, значение которых совпадает с индексом.
Подсказка: a[i] mod 5 = 0; a[i]=i
4. В целочисленном массиве A из 10 элементов, заданных на интервале (-10; 20), отрицательные элементы замените на «2»

@Puporev · 03.02.2021, 14:36

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const n=12;
var a:array[1..n] of real;
    i:integer;
    s:real;
begin
randomize;
writeln('Массив');
s:=0;
for i:=1 to n do
 begin
  a[i]:=-10+25*random;
  write(a[i]:6:2);
  s:=s+a[i];
 end;
writeln;
s:=s/n;
writeln('Среднее арифметическое=',s:0:2)
end.

1а.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const n=12;
var a:array[1..n] of real;
    i:integer;
    s:real;
begin
randomize;
writeln('Массив');
s:=0;
for i:=1 to n do
 begin
  a[i]:=-10+25*random;
  write(a[i]:6:2);
  if a[i]<0 then s:=s+a[i];
 end;
writeln;
writeln('Сумма отрицательных эементов=',s:0:2)
end.

1б.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const n=12;
var a:array[1..n] of real;
    i,k:integer;
    s:real;
begin
randomize;
writeln('Массив');
s:=0;
k:=0;
for i:=1 to n do
 begin
  a[i]:=-10+25*random;
  write(a[i]:6:2);
  if a[i]<0 then
   begin
    s:=s+a[i];
    k:=k+1;
   end;
 end;
writeln;
if k=0 then s:=0 else s:=s/k;
writeln('Среднее арифметическое отрицательных чисел=',s:0:2)
end.

Остальное давайте сами.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Evelina18036 0 / 0 / 0 Регистрация: 03.02.2021 Сообщений: 5

	Произвести заданные действия с одномерным массивом 03.02.2021, 14:06. Показов 1095. Ответов 1 Метки массив pascal (Все метки) В массиве из 12 действительных чисел, найти среднее арифметическое элементов. Элементы определяются на интервале (-10;15) Измените задачу, чтобы: • Осуществлялся подсчет сумы отрицательных элементов • Вычислялось вреднее арифметическое отрицательных чисел. При решении следующих задач самостоятельно определяете способ заполнения массива (если не указан способ заполнения в условии задачи) 1. В массиве из 6 действительных чисел найти сумму элементов, стоящих на четных местах. 2. В массиве из 10 целых чисел, найти среднее арифметическое нечетных элементов массива. 3. В массиве из 9 целых случайных чисел, заполненном из интервала (1; 10), найти сумму элементов, кратных 5, найти количество элементов, значение которых совпадает с индексом. Подсказка: a[i] mod 5 = 0; a[i]=i 4. В целочисленном массиве A из 10 элементов, заданных на интервале (-10; 20), отрицательные элементы замените на «2» 0