1. введите N.
2. цикл for от 1 до N будем вводить 'элементы массива x[i]/
3. в цыкле от 1 до N бедем выводить на экран массив writeln(x[i]) и считаем сумму. если в программе выполнять, то это будет выглядеть так
write('введите N'); readln(n);
for i:=1 to n do begin write('введите ',i,' элемент массива');
readln (x[i]);
end;
sum:=0;
for i:=1 t0 n do begin
write(' ',x[i]);
sum:=sum+x[i];
end;
write('а сумма всех элементов = ',sum);
Program asd;
var a,b:integer;
begin
a:=10;
writeln('1=10');
for b=2 to 10 do
begin
writeln(b,'=',a+((a/100)*10);
a:=a+((a/100)*10);
end;
end.
101011101= 349
11101101= 237
Var a,b,c:byte;
begin
for c:=1 to 99 do begin
a:=c mod 2; b:=c mod 3;
if (a=0) and (b=0) then write (c);
end;
end.