program SumSeq;
{$APPTYPE CONSOLE}
uses
SysUtils;
//const m:Integer ;
var
i, j, m, s:Integer;
n: array of Integer;
begin
s:=0;
Writeln(m);
Writeln('vvedite m');
Readln(m);
SetLength(n,m);
for i:=0 to m do
begin
j:=Random(10);
if j<5
then n[i]:=-1*j
else n[i]:=j;
write(n[i], ' ')
end;
Writeln;
Writeln('To continue push >>ENTER');
Readln;
for i:=0 to m do
begin
if n[i]<0
then s:=s+sqr(n[i])
end;
writeln('s=',s);
readln
{ TODO -oUser -cConsole Main : Insert code here }
end.
Поделитесь своими знаниями, ответьте на вопрос:
Начальная скорость камня 70 м/с. Найти угол бросания, при котором камень упадет около 453 м от места бросания. Найти: 1) Время полета с точностью 0, 2 с 2) Наибольшая высота подъёма
Компьютер – новая реальность в нашей жизни, он может стать как другом и так и врагом – все зависит как от частоты, так и от цели его использования.Как влияет компьютер на здоровье человека?
Человек за компьютером постоянно находится в положении сидя. При этом происходит неравномерное распределение нагрузки на мышцы спины и межпозвонковые диски, напряжены шея, мышцы головы, руки и плечи, наблюдается излишняя нагрузка на позвоночник, что может спровоцировать сколиоз у подростков, а у взрослых – остеохондроз, сильнейшие головные боли и даже невралгии. Длительное нахождение за компьютером развитию гиподинамии, которая выражается в бессоннице, апатии, общей вялости, рассеянности и сильном снижении иммунитета.
Излишняя яркость, пусть и невидимое, но все же неизбежное мерцание изображения и блики на стекле мониторов заставляют глаза излишне напрягаться. Плохо сказываются на зрении и неудачный подбор цвета, шрифтов, компоновки окон в используемых Вами программ, неправильное расположение экрана. От этого мышцы хрусталика перенапрягаются, зрение понемногу начинает падать, появляется синдром "усталых и сухих глаз".
Объяснение:
Пойдёт?