1) Const n=10; var a:array[1..n]of integer; i,s:integer; begin for i:=1 to n do begin a[i]:=random(41)-20; write(a[i]:4); if a[i]<0 then s:=s+a[i]; end; writeln; writeln(' S= ',s); end. 2) Const n=20; var i,s:integer; a:array[1..n]of integer; begin for i:=1 to n do begin a[i]:=random(11)+15; write(a[i]:4); if a[i]mod 2=0 then s:=s+a[i]; end; writeln; writeln('S = ',s); end.
Просто: 1) система программирования это средство, которое позволяет писать программы, на определенном языке программирования, или на нескольких определенных языках. 2) язык программирования: это система обозначений, которая позволяет записывать алгоритмы. 3) чтоб алгоритм работал на машине, нужно: описание, на языке программирования, ввести в систему программирования, которая по этому описанию сделает выполняемую программу. 4) кроме транслятора, система программирования содержит весь набор инструментов для работы: текстовые редакторы, конструкторы, отладчики, и тд. поэтому называется "система"
Const
n=10;
var
a:array[1..n]of integer;
i,s:integer;
begin
for i:=1 to n do
begin
a[i]:=random(41)-20;
write(a[i]:4);
if a[i]<0 then
s:=s+a[i];
end;
writeln;
writeln(' S= ',s);
end.
2)
Const
n=20;
var
i,s:integer;
a:array[1..n]of integer;
begin
for i:=1 to n do
begin
a[i]:=random(11)+15;
write(a[i]:4);
if a[i]mod 2=0 then
s:=s+a[i];
end;
writeln;
writeln('S = ',s);
end.