1. Заполнить одномерный массив B вещественными числами из промежутка от - 20 до 5?

Zhannaalib1982 6 дек. 2020 г., 11:35:45

Задание №1 / / PascalABC.

NET (версия 3.

1, сборка 1210 от 29.

03. 2016)

var b : array of real ; i, n, pn : integer ; ps, op, min : real ;

begin write('Количество элементов массива : ') ; readln(n) ; SetLength(b, n) ; / / задаем длину массива min : = MaxReal ; op : = 1 ; writeln('Исходный массив : ') ; for i : = 0 to n - 1 do begin repeat write('Введите ', i + 1, ' число из ', n, ' : ') ; readln(b[i]) ; until (b[i]< ; = 5) and (b[i]> ; = - 20) ; if (b[i]> ; 0) and (round(b[i] / 2) * 2 = b[i]) then begin ps + = b[i] ; pn + = 1 ; end else if b[i]< ; 0 then op * = b[i] ; if b[i]< ; min then min : = b[i] ; end ; writeln ; writeln('сумма положительных и четных элементов массива : ', ps : 0 : 3) ; writeln('Среднее положительных и четных элементов массива : ', ps / pn : 0 : 3) ; writeln('Произведение отрицательных элементов массива : ', op : 0 : 3) ; writeln('Минимальный элемент массива : ', min) ; writeln('Отсортированный массив по убыванию : ') ; b.

Sorteddescending.

Println ;

end.

Тестовое решение :

Количество элементов массива : 8

Исходный массив :

Введите 1 число из 8 : - 18.

5

Введите 2 число из 8 : 3.

4

Введите 3 число из 8 : 4

Введите 4 число из 8 : - 12

Введите 5 число из 8 : 2.

2

Введите 6 число из 8 : - 6.

3

Введите 7 число из 8 : 2

Введите 8 число из 8 : 5

сумма положительных и четных элементов массива : 6.

000

Среднее положительных и четных элементов массива : 3.

000

Произведение отрицательных элементов массива : - 1398.

600

Минимальный элемент массива : - 18.

5

Отсортированный массив по убыванию :

5 4 3.

4 2. 2 2 - 6.

3 - 12 - 18.

5

Задание №2 / / PascalABC.

NET (версия 3.

1, сборка 1210 от 29.

03. 2016)

var a : array of integer ; i, n , max, h, k : integer ;

begin write('Количество элементов массива : ') ; readln(n) ; write('Число H : ') ; readln(h) ; write('Число K : ') ; readln(k) ; SetLength(a, n) ; / / задаем длину массива max : = - MaxInt ; writeln('Исходный массив : ') ; for i : = 0 to n - 1 do repeat write('Введите ', i + 1, ' число из ', n, ' : ') ; readln(a[i]) ; if a[i]> ; max then max : = a[i] ; until (a[i]< ; = 7) and (a[i]> ; = - 12) ; for i : = 0 to n - 1 do begin if (a[i]> ; h) and (a[i]mod k = 0) then writeln('Число ', a[i], ' больше ', h, ' и кратно ', k) ; end ; writeln('Максимальный элемент массива : ', max) ; writeln('Отсортированный массив по возрастанию : ') ; a.

Sorted.

Println ;

end.

Тестовое решение :

Количество элементов массива : 8

Число H : - 8

Число K : 2

Исходный массив :

Введите 1 число из 8 : - 10

Введите 2 число из 8 : 6

Введите 3 число из 8 : - 4

Введите 4 число из 8 : 3

Введите 5 число из 8 : 1

Введите 6 число из 8 : - 1

Введите 7 число из 8 : - 12

Введите 8 число из 8 : 4

Число 6 больше - 8 и кратно 2

Число - 4 больше - 8 и кратно 2

Число 4 больше - 8 и кратно 2

Максимальный элемент массива : 6

Отсортированный массив по возрастанию : - 12 - 10 - 4 - 1 1 3 4 6.

Leto7707 19 апр. 2020 г., 12:39:50 | 5 - 9 классы

ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО?

ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО!

1. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от - 15 до 35.

Найти сумму элементов данного массива.

2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от - 15 до 35.

Найти значение максимального элемента массива.

Диана200356 19 янв. 2020 г., 19:36:48 | 5 - 9 классы

Одномерные массивы?

Одномерные массивы.

Дан массив натуральных чисел, состоящий из n элементов.

Найти сумму элементов массива, кратных данному числу К.

(паскаль).

Dianacul 3 мая 2020 г., 07:01:54 | 10 - 11 классы

Задан одномерный массив из n элементов?

Задан одномерный массив из n элементов.

Найти сумму всех неотрицательных элементов массива.

Настя2005 3 янв. 2020 г., 06:37:14 | 5 - 9 классы

Дан одномерный массив, состоящий из вещественных элементов?

Дан одномерный массив, состоящий из вещественных элементов.

Найти сумму элементов массива, расположенных до последнего положительного элемента.

Таантя 26 сент. 2020 г., 19:41:16 | 5 - 9 классы

1. Дан одномерный массив из N элементов?

1. Дан одномерный массив из N элементов.

Заменить в нем значение макс и мин элемента на сумму всех элементов массива 2.

Дан одномерный массив из Н элементов.

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

Aylovat40 16 окт. 2020 г., 08:55:54 | 10 - 11 классы

Дан одномерный массив из 12 чисел?

Дан одномерный массив из 12 чисел.

Элементами массива являются целые числа.

Найти максимальный элемент указанного массива.

Pinirob 14 дек. 2020 г., 08:01:44 | 10 - 11 классы

Сформировать одномерный массив из 10 целых элементов?

Сформировать одномерный массив из 10 целых элементов.

Найти сумму положительных и четных элементов массива.

SarymovaKaramelya 4 июл. 2020 г., 23:23:18 | 5 - 9 классы

Одномерные массивы?

Одномерные массивы.

Дан массив натуральных чисел, состоящий из n элементов.

Найти сумму элементов массива, кратных данному числу К.

Tatyanka2830 19 июн. 2020 г., 09:57:48 | 10 - 11 классы

Дан одномерный массив, состоящий из 20 элементов?

Дан одномерный массив, состоящий из 20 элементов.

Найти сумму элементов массива, принадлежащих промежутку от А до В.

Помогать1 6 нояб. 2020 г., 19:51:15 | 5 - 9 классы

Pascal 1?

Pascal 1.

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

2. Найти минимальный элемент одномерного массива.