СРОЧНО?

Lenchik4804 29 мая 2020 г., 12:37:48

Program massiv ;

var b : array[1.

100]of integer ;

r, n, m, i, p, k, a : integer ;

begin

randomize ; writeln ('a = ') ; readln(a) ;

writeln('n = ') ; readln(n) ;

for i : = 1 to n do begin

b[i] : = random(50) - 25 ;

writeln('a[', i, '] = ') ;

if b[i]> ; 0 then begin r : = r + b[i] ; p : = r * 2 ;

if b[i]> ; a then k : = k + 1 ;

if ((b[i]< ; a)and(b[i]> ; 0)) then m : = m + 1 ;

end ; end ; writeln('удвоенная сумма положительных элементов ', p) ;

writeln('kол - во элементов массива , значения которых больше заданного числа', k) ;

writeln('количество положительных элементов не превсходящих заданного числа', m) ;

end.

DDDina 17 мар. 2020 г., 18:11:39 | 5 - 9 классы

Дан массив целых чисел?

Дан массив целых чисел.

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

(сделайте в паскале).

Ganster009 17 сент. 2020 г., 23:29:05 | 10 - 11 классы

1. Найти произведение положительных элементов массива X(9)?

1. Найти произведение положительных элементов массива X(9).

2. Заменить элементы, значения которых равны числу 4, числом - 4.

Данные задать самостоятельно в массиве С(5).

Anna19681 25 авг. 2020 г., 06:14:42 | 5 - 9 классы

Дана матрица С[Н, М]?

Дана матрица С[Н, М].

Сформировать массив В, элементами которого являются значения элементов тех строк исходного массива, сумма которых положительна.

5даг05 26 июл. 2020 г., 00:38:29 | 10 - 11 классы

Help?

Help!

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

Заполнить его с клавиатуры.

Найти : - Удвоенную сумму положительных элементов ; - Удалить все четные элементы массива.

Ntoniy10 30 мар. 2020 г., 04:29:04 | 10 - 11 классы

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

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

Заполнить его с клавиатуры.

Найти : - Удвоенную сумму положительных элементов ; - Вывести значения тех элементов, которые меньше заданного числа А кратны 3.

Lo19 17 февр. 2020 г., 05:41:49 | 10 - 11 классы

Дан массив целых чисел (n = 30), зап?

Дан массив целых чисел (n = 30), зап.

Случайным образом числами из пром - ка [ - 20 ; 60] : 1)найти удвоенную сумму положительных элементов массива ; 2)найти сумму положительных элементов, кратных 3.

IRINASTRELZ 27 нояб. 2020 г., 01:23:12 | 5 - 9 классы

PascalABC1)Дан массив целых чисел, состоящий из 8 элементов?

PascalABC

1)Дан массив целых чисел, состоящий из 8 элементов.

Заполнить его с клавиатуры.

Найти сумму элементов, имеющий нечётный индекс.

2)Сформировать одномерные массив из N элементов, где элементы массива - целые случайные числа.

Вывести индексы тех элементов, значение которых больше заданного числа A (A вводить с клавиатуры).

3)Определите, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).

Gffghvd 8 окт. 2020 г., 19:16:16 | 5 - 9 классы

Дан массив А целых чисел, состоящий из 25 элементов?

Дан массив А целых чисел, состоящий из 25 элементов.

Заполнить с клавиатуры.

3)Найти элемент массива кратный 12 и его индекс.

4)Найти сумму положительных элементов, значения которых меньше 10.

5)Вывести индексы тех элементов, которых кратн.

IldarAWM 2 дек. 2020 г., 16:47:58 | 5 - 9 классы

Помогите пожалуйста с информатикой?

Помогите пожалуйста с информатикой!

Массивы На паскале.

Даю 50 баллов Дан массив целых чисел, состоящий из 20 элементов.

Заполнить его с клавиатуры.

Найти : •вывести индексы тех элементов, значения которых больше заданного числа А ; •определить, есть ли в данном массиве положительные элементы, кратные k (k вводить с клавиатуры).

Laszay14 2 окт. 2020 г., 14:20:12 | 5 - 9 классы

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

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

Заполнить его с клавиатуры.

Найти :

1)сумму элементов, имеющих нечетное значение ;

2)вывести индексы тех элементов, значения которых больше заданного числа А.