Кто хорошо разбирается в программировании? нужно : ) , напишите программы в паскале для : 1. заполнить массив а[15] числами 106, 112, 118, 124, 2.дан массив целых чисел, состоящий из 30 элементов. заполнить его с датчика случайных чисел. hайти: a) сумму отрицательных элементов б) количество тех элементов, значения которых положительны и не превосходят заданного числа а

244

393

Посмотреть ответы 2

Ответы на вопрос:

vektor9931oz1kb3

Информатика

4,8(50 оценок)

// pascalabc.net 3.2, сборка 1325 от 19.10.2016 begin var a: =106.step(6).take(15).toarray; a.println end. результат 106 112 118 124 130 136 142 148 154 160 166 172 178 184 190 // pascalabc.net 3.2, сборка 1325 от 19.10.2016 begin var b: =arrrandom(30,-50,50); b.println; var a: =readinteger('введите число а: '); writeln('сумма отрицательных: ',b.where(x-> x< 0).sum); writeln('cумма положительных, не больших ',a,', равна ', b.where(x-> (x> 0) and (x< =) end. пример -21 12 8 50 -47 35 45 -2 -30 -33 3 12 41 -29 8 2 -24 -44 -50 -2 -13 -32 33 -29 35 -43 20 -44 42 -3 введите число а: 36 сумма отрицательных: -446 cумма положительных, не больших 36, равна 168

Golpio

Информатика

4,7(63 оценок)

Готово function max(a1, a2: integer): integer; begin if a1> a2 then max: =a1 else max: =a2; end; var a, b, c, d: integer; begin readln(a, b, c, d); write(max(max(a, b), max(c, ; end.если есть какие-то вопросы или ещё нужна , в лс.