Дiйснi вектори A (a1,a2… ,an) та B (b1,b2…

Дiйснi вектори A (a1,a2… ,an) та B (b1,b2… ,bn) перетворити заправилом: якщо a (i) та b (i) вiд’ємнi, то кожну компоненту збiльшити на 0,5; якщо вiд’ємна одна з компонент, то вiд’ємне число замiнити його квадратом; якщо обидвi компоненти невiд’ємнi, то кожну з них замiнити середнiм арифметичним початкових значень.

в избранное

niko22

21 декабря 2022

Uses crt; const N=5; var a,b: array [1… N] of real; i,j: integer; sum: real; begin for i: =1 to N do begin write ('a[',i,']: '); readln (a[i]); write ('b[',i,']: '); readln (b[i]); if (a[i]<0) and (b[i]<0) then begin a[i]: =a[i]+0,5; b[i]: =b[i]+0,5; end; if (a[i]<0) and (b[i]>=0) then a[i]: =sqr (a[i]); if (a[i]>=0) and (b[i]<0) then b[i]: =sqr (b[i]); if (a[i]>=0) and (b[i]>=0) then begin sum: =a[i]+b[i]; a[i]: =sum/2; b[i]: =sum/2; end; end; writeln; write ('a: '); for i: =1 to N do write (a[i],'); writeln; write ('b: '); for i: =1 to N do write (b[i],'); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?