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.
Ответ дал: Гость
varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.
Ответ дал: Гость
var a: array[1..100] of integer;
begin
randomize; {чтоб рандом был разный для каждого запуска програмы}
for i: = 1 to 100 do
if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}
else a[i]: =2*random(100);
end.
есличто непонятно - пиши в сообщения, растолкую
Ответ дал: Гость
если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется
Популярные вопросы