Полное решени со всеми действиями . Надо ещё нарисовать круги (желательно)

110

280

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

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

Пакет11

Информатика

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

Только для pascalabc.net 3.2 ! begin var n: =readinteger('число элементов массива-'); var a: =arrrandom(n,-50,50); a.println; for var i: =1 to n-2 do a[i]: =2*(i+1); a.println end. пример число элементов массива- 10 -40 4 -49 0 -47 41 49 33 -31 -1 -40 4 6 8 10 12 14 16 18 -1 begin var n: =readinteger('число элементов массива-'); var a: =arrrandom(n,-50,50); a.println; var i1: =a.indexmax; var i2: =a.indexmin; writeln(a[min(i1,i2)+1: max(i1,i2)].where(x-> x< 0).sum) end. пример число элементов массива- 18 -45 -30 -49 -44 34 -5 -12 -28 22 14 -39 -20 -46 50 6 21 20 -47 -194 begin var a: =readlnstring('введите строку; ').tochararray; // было сделано так только ради получения массива символов, // который на самом деле только мешает writeln(a); if pos('',a.joinintostring)> 0 then writeln('троеточие в массиве есть') else writeln('троеточия в массиве нет') end. пример введите строку; 6ye$% dfdrt.. [6,y,e,$,%, ,d,f,d,r,,r,r,t,e,r,,f,d,g,d] троеточие в массиве есть