Var a:array[1..10] of Integer ;
b,i,k,f:integer;
Begin
WriteLn('Исходный массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
end;
For k:=1 to 9 do
begin
For i:= 1 to 9 do
begin
if a[i]< a[i+1] then
begin
b:=a[i];
a[i] := a[i+1];
a[i+1]:=b;
end;
end;
end;
WriteLn;
WriteLn('Итоговый массив');
For i:= 1 to 10 do
Write(a[i]:3);
end.
Ответ:
var a:array[1..100] of integer;
i,s,n:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i] mod 6=0) then
s := s + a[i];
writeln(s);
end.
Треугольников 40
и 10 квадратов
<span>для представления информации при:
1)записи арифметических выражений - используются цифры, знаки арифметических операций (+ , - , *, /)
2)записи мелодий - ноты
3) записи звуков речи - буквы алфавита
4) оформление календаря погоды - пиктограммы (картинки):солнечно, пасмурно, дождь и т.д.</span>
Program z10;
var a,b:real;
Begin
a:=1;b:=0;
while a<1024 do
begin
a:=a*2;
b:=sqrt(a+b);
end;
write(b);
<span>end.
2)
Program z10;
var w,j,p,i,k:longint;
x,s:real;
Begin
read(x);
s:=0;k:=10;
for i:=1 to k do
begin
p:=1;w:=3*i-1;
for j:=1 to w do
begin
p:=p*j;
end;
s:=s+x/p;
end;
write(s);
<span>end.
2-это 4</span></span>