если ответ нужен в десятичной сс, то просто переведи
Ответ дал: Гость
program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin readln(a[i]); if a[i]< 0 then l: =l+a[i]; if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.
Ответ дал: Гость
var i: integer; begin for i: = 2 to 14 do writeln(i*i); end.
Ответ дал: Гость
var a: array [1..100] of real; i,n: integer;
t: real; begin randomize; n: =20; for i: = 1 to n do begin a[i]: =random(n*10)- 10*n div 2 ; write(a[i]: 4); if i mod 10=0 then writeln; end;
t: =a[1]
for i: = 1 to n do begin a[i]: =a[i]/t ; write(a[i]: 4); if i mod 10=0 then writeln; end; end.
Популярные вопросы