Как найти сумму всех i pascal

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

var
 a:array [1..20] of integer;
 i,s,n:integer;
 begin
    writeln('введите размер массива');
    readln(n);
  {Заполнение случайными числами и вывод массива}
  for i:=1 to n do
      a[i]:=random(100);
  writeln('исходный массив');
  for i:=1 to n do
      write(a[i]:4);  writeln;
      s:=0;
  for i:=1 to n do
     s:=s+a[i];
   writeln('сумма=',s)
end.

1
2
3
4
5
6
7

Begin
s:=0
for i:=1 to n do
begin s:=s+a[i];
end
write (s);
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

var
 a:array [1..20] of integer;
 i,pr,n:integer;
 begin
    writeln('введите размер массива');
    readln(n);
  {Заполнение случайными числами и вывод массива}
  for i:=1 to n do
      a[i]:=random(100)-50;
  writeln('исходный массив');
  for i:=1 to n do
      write(a[i]:4);  writeln;
      pr:=1;
  for i:=1 to n do
      if a[i]<0 then
        pr:=pr*a[i];
   writeln('произведение=',pr)
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,n,s1,p,s2:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
s1:=0;
for i:=1 to n do
s1:=s1+x[i];
Writeln ('Summa BCEX = ',s1);
p:=1;
for i:=1 to n do
  if x[i]<0 then p:=p*x[i];
writeln ('Proizvedenie el-ov<0 =',p);
s2:=0;
for i:=1 to n do
if x[i]>=0 then s2:=s2+sqr(x[i]);
Writeln ('Summa kvadratov ele-ov>0 =',s2);
REadln
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

var
 a:array [1..20] of integer;
 i,pr,n,s,s1:integer;
 begin
    writeln('введите размер массива');
    readln(n);
  {Заполнение случайными числами и вывод массива}
  for i:=1 to n do
      a[i]:=random(100)-50;
  writeln('исходный массив');
  for i:=1 to n do
      write(a[i]:4);  writeln;
      pr:=1;
  s:=0;
  for i:=1 to n do
     s:=s+a[i];
 
  for i:=1 to n do
      if a[i]<0 then
        pr:=pr*a[i];
  for i:=1 to n do
     if a[i]>0 then
       s1:=s1+a[i]*a[i];
   writeln('произведение=',pr,'  ', 'сумма=',s,'  ','сумма квадратов=',s1)
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,n,k,k1,s,s1:integer;
     sr1,sr2:real;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
s:=0;
k:=0;
for i:=1 to n do
  if x[i]>=0 then begin
                  s:=s+x[i];
                  k:=k+1;
                  end;
sr1:=s/k;
Writeln ('Sred.Arifmet elem-ov > 0 =',sr1:4:2);
s1:=0;
k1:=0;
for i:=1 to n do
   if x[i]<0 then begin
                  s1:=s1+x[i];
                  k1:=k1+1;
                  end;
sr2:=s1/k1;
writeln ('Sred.arifM elementov < 0 =',sr2:4:2);
readln
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

uses crt;
var
a:array[1..100,1..100]of integer;
i,j,n,m,sum,kol:integer;
sr:real;
begin clrscr;
write('n=');
read(n);
write('m=');
read(m);
for i:=1 to m do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  read(a[i,j]);
 end;
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j],'  ');
  writeln;
 end;
writeln;
sum:=0;
kol:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]>0 then
 begin
  sum:=sum+a[i,j];
  inc(kol);
 end;
sr:=sum/kol;
writeln('sredn./arifm. polojitelnyh=',sr:2:3);
 
sum:=0;
kol:=0;
for i:=1 to m do
for j:=1 to n do
if a[i,j]<0 then
 begin
  sum:=sum+a[i,j];
  inc(kol);
 end;
sr:=sum/kol;
writeln('sredn./arifm. otricatelnyh=',sr:2:3);
readkey;
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

var
 a:array [1..20] of integer;
 i,k,k1,n,s,s1:integer;
 sredarf,sredarf2:real;
 begin
    writeln('введите размер массива');
    readln(n);
  {Заполнение случайными числами и вывод массива}
  for i:=1 to n do
      a[i]:=random(100)-50;
  writeln('исходный массив');
  for i:=1 to n do
      write(a[i]:4);  writeln;
 
  s:=0;
  for i:=1 to n do
     if a[i]>0 then begin
        s:=s+a[i];
        k:=k+1
     end;
   s1:=0;
  for i:=1 to n do
     if a[i]<0 then begin
       s1:=s1+a[i];
       k1:=k1+1;
     end;
   sredarf:=s/k;
   sredarf2:=s1/k1;
   writeln('среднеарифметическое положительных=',s,'  ','среднеарифметическое отрицательных=',s1);
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

Program maxim;
Uses crt;
Const n=4;
 var b:array [1..n,1..n] of integer;
     i,j:integer;
begin
clrscr;
 for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
for i:=4 to n do
  for j:=1 to n do
  b[i,j]:=4;
writeln;
writeln (' OTBET ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
Readln
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

var
 a:array [1..20,1..20] of integer;
 i,j,s,n,m:integer;
 begin
    writeln('введите размер массива');
    readln(n,m);
  {Заполнение случайными числами и вывод массива}
  for i:=1 to n do
   for j:=1 to m do
      a[i,j]:=random(200)-50;
  writeln('исходный массив');
  for i:=1 to n do  begin
   writeln;
  for j:=1 to m do
      write(a[i,j]:4);
   end;     writeln;
  s:=0;
  for i:=1 to n do
     if a[i,4]<100 then
        s:=s+a[i,4];
   writeln('сумма=',s);
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

var
 a:array [1..6,1..6] of integer;
 i,j,c:integer;
 begin
  {Заполнение случайными числами и вывод массива}
  for i:=1 to 6 do
   for j:=1 to 6 do
      a[i,j]:=random(70)-10;
  writeln('исходный массив');
  for i:=1 to 6 do  begin
   writeln;
  for j:=1 to 6 do
      write(a[i,j]:6);
   end;     writeln;
 
  for i:=1 to 6 do
     a[i,4]:=a[i,4]+a[i,2];
   {вывод массива}
   writeln('Преобразованный массив');
   for i:=1 to 6 do  begin
   writeln;
  for j:=1 to 6 do
      write(a[i,j]:4);
   end;
end.