Регистрация
UliaOlolenko464
21.10.2021 19:25
Информатика
Есть ответ 👍

Дано вектор а(1,4,8).Відтак , cosβ=?​

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

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

Hyun79
Hyun79
4,7(31 оценок)
Program mm; var a: array[1..12] of integer; begin for i: =1 to 12 do begin а[1]: =5;   а[2]: =4;   а[3]: =-3;   а[4]: =1;   а[5]: =0; а[6]: =-4;   а[7]: =(у тебя не написано);   а[8]=25;   а[9]=-8;   a[10]=-5;   а[11]=-17;   а[12]=-1; end; writeln('вот  исходный массив'); for i: =1 to 12 do writeln('a[',i,']=',a[i]);   for i: =1 to 12 do begin if (a[i]< 0) then a[i]: =1; if (a[i]> 0) then a[i]: =-5; end; writeln('вот полученный  массив'); for i: =1 to 12 do writeln('a[',i,']=',a[i]);   writeln(' введите 12 чисел'); for i: =1 to 12 do readln(a[i]);           (это  доп оценка) end.

Популярно: Информатика