Команда Print это. 1. Вывод сообщения на экран
2. Ввод сообщения
3. Целочисленное число

225

344

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

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

olivcad

Информатика

4,6(1 оценок)

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! const n=34; begin // 1 var r: =arrrandom(n,-8,8); r.println; // 2 var b: =r.slice(trunc(0.75*n)-1,3); writeln('ср.гармоническое= ',b.count/b.aggregate(0.0,(x,y)-> x+1.0/y)); // 3 var m: =r.batch(n div 3).toarray[1].where(x-> x.iseven).minby(x-> abs(x)); writeln('минимальный по модулю= ',m); // 4 var r2: =r.select((x,i)-> (x,(n div 2).toarray; var r21: =r2[0].where(x-> x[0]< 0).orderby(x-> sqr(x[0])); var ind: =r21+r2[1].where(x-> x[0]< 0).orderby(x-> sqr(; var ind1: =ind.unziptuple; var aval: =ind1[0].toarray; var aind: =ind1[1].sorted.toarray; for var i: =0 to aval.count-1 do r[aind[i]]: =aval[i]; r.println end. пример 8 -3 2 -2 6 6 7 6 -7 -5 -4 6 2 2 1 1 -6 1 -1 -5 8 4 1 7 1 1 2 -8 -8 1 -7 1 8 -6 ср.гармоническое= 7.07368421052631 минимальный по модулю= 2 8 -2 2 -3 6 6 7 6 -4 -5 -6 6 2 2 1 1 -7 1 -1 -5 8 4 1 7 1 1 2 -6 -7 1 -8 1 8 -8