Заполнить массив из 5 элементов случайными числами из интервала от -15 до 15, вывести на экран, а затем увеличить каждый элемент в два раза и повторно вывести на экран.

Pascal: var a: array [1..5] of integer;           i: integer; begin   randomize;   for i: =1 to 5 do        begin             a[i]: =random(31)-15;           write (a[i]: 4);         end;   writeln;   for i: =1 to 5 do       begin           a[i]: =a[i]*2;             write (a[i]: 4);       end;   writeln;   readln; end. c++: #include < iostream> #include < ctime> #include < cstdlib> using namespace std; int main() {     int a[5];     srand (time(null));     for  (int  i = 0; i< 5; i++)     {           a[i] = rand()%15-15;             cout < < a[i] < < " ";       }     cout < < endl;     for (int  i = 0; i< 5;   i++)     {             a[i]*=2;           cout < < a[i] < < " ";       }     return 0; }

Const n=5; var a: array[1..n] of integer; i: integer; begin for i: = 1 to n do begin   a[i]: =-15+random(30);   write(a[i]: 3); end; writeln; for i: = 1 to n do begin   a[i]: =2*a[i];   write(a[i]: 3); end; end.

Вот что у меня есть: ( я сделала, чтобы вычисляло выражение их 3 чисел и двух знаков, но не получается сделать так, чтобы учитывались круглые скобки )

var s, s1, s2, s3, s4: string;

i, a, b, c, d, e, f: integer;

begin

Writeln('Введите строку: ');

Readln(s);

for i := 1 to length(s) do

begin

if (s[i] = '+') or (s[i] = '-') or (s[i] = '*') or (s[i] = '/') then

begin

s1 := copy(s, 1, i-1);

s2 := copy(s, i+1, length(s));

c := i;

end;

end;

for i := 1 to length(s1) do

begin

if (s1[i] = '+') or (s1[i] = '-') or (s1[i] = '*') or (s1[i] = '/') then

begin

s3 := copy(s1, 1, i-1);

s4 := copy(s1, i+1, length(s1));

e := i;

end;

end;

Val(s3, a, d);

Val(s4, b, d);

Val(s2, f, d);

if (s[e] = '/') and (s[c] = '/') then Writeln((a div b) div f);

if (s[e] = '/') and (s[c] = '*') then Writeln((a div b) * f);

if (s[e] = '+') and (s[c] = '*') then Writeln(a + (b * f));

if (s[e] = '*') and (s[c] = '*') then Writeln(a * b * f);

if (s[e] = '+') and (s[c] = '/') then Writeln(a + (b div f));

if (s[e] = '*') and (s[c] = '+') then Writeln((a * b) + f);

if (s[e] = '/') and (s[c] = '+') then Writeln((a div b) + f);

if (s[e] = '*') and (s[c] = '/') then Writeln((a * b) div f);

if (s[e] = '+') and (s[c] = '+') then Writeln(a + b + f);

if (s[e] = '-') and (s[c] = '-') then Writeln(a - b - f);

if (s[e] = '+') and (s[c] = '-') then Writeln(a + b - f);

if (s[e] = '-') and (s[c] = '+') then Writeln(a - b + f);

if (s[e] = '*') and (s[c] = '-') then Writeln((a * b) - f);

if (s[e] = '/') and (s[c] = '-') then Writeln((a div b) - f);

if (s[e] = '-') and (s[c] = '*') then Writeln(a- (b * f));

if (s[e] = '-') and (s[c] = '/') then Writeln(a - (b div f));

end.

Среди широко доступных приложений 3D-моделирования SketchUp является самым простым в использовании. Это программное обеспечение было успешным по одной причине: в течение нескольких часов после запуска SketchUp в первый раз вы можете получить достаточно хорошее для SketchUp, чтобы что-то создать. У вас нет толстых руководств для чтения, и нет специальных геометрических понятий для понимания. Моделирование в SketchUp - это захват вашей мыши и создание чего-то

Итак, как долго вам нужно узнать, как работает SketchUp? Это зависит от вашего опыта и опыта; в общем, вы можете ожидать сделать что-то узнаваемое менее чем за четыре часа. Это не значит, что вы будете свистом - это просто означает, что кривая обучения SketchUp чрезвычайно благоприятна. Вам не нужно много знать, чтобы начать, но вы все равно заберете годы.

Но проще ли SketchUp ? SketchUp, без сомнения, easi er , чем другие программы моделирования, но само 3D-моделирование может быть сложным. Некоторые люди сразу поймают, а некоторые люди занимают больше времени. Если вы хотите построить 3D-модели, и у вас есть запасной день, нет лучшего места для начала, чем SketchUp.