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.
Поделитесь своими знаниями, ответьте на вопрос:
Якими словами можна замінити слова знання, історія, новина