Написать программу , осуществляющую заполнение массива случайными числами из интервала от -10 до 10, вывести его на экран, а зат
Написать программу , осуществляющую заполнение массива случайными числами из интервала от -10 до 10, вывести его на экран, а затем все элементы из интервала от -5 до 5 увеличить на 1, массив повторно вы¬вести на экран.
<span>Вот на Java, в паскаль лень переводить. Если все же нужно, то отпишите в скайп - vasilevich24. public class zadanie4 {</span> <span>public static void main(String[] args) {</span><span> . int a[];</span><span><span> a=</span>new int [150];</span><span> System.out<span>.println(</span>"Исходный
массив:");</span><span> for (int i=0;i<15;i++) {</span><span><span> a[i]=(</span>int<span>) Math.floor(Math.random()*20)-10; </span></span><span><span> System.</span>out<span>.println(</span>"a["+i+"]="+a[i]);}</span><span> for (int i=0;i<15;i++){</span><span> if (a[i]>=-5 && a[i]<=5){</span><span> a[i]=a[i]+1;}}</span><span><span> System.</span>out.println("Полученный массив:"); </span><span> for (int i=0;i<15;i++) { </span><span><span> System.</span>out<span>.println(</span>"a["+i+"]="<span>+a[i]);}}} </span></span>
Var x,y,b:real; begin b:=6; while b>=5 do begin writeln('Введите параметр b (b<5): '); readln(b); end; x:=b; writeln('x':2,'y':6); repeat y:=cos(x)*Pi/x; writeln(x:3:1,' ',y); x:=x+0.1; until x>5; <span>end.</span>