Var n,i,s:integer;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do
if i mod 2 =0 then s:=s-i else s:=s+i;
writeln('s = ',s);
end.
Пример:
n = 10
s = -5
var
i,a,N:integer;
sr:real;
begin
write('Vvedite N = ');
readln(N); // Вводите количество чисел в массиве и одновременно вводите диапозон массива от 1 до N
randomize;
for i:=1 to N do
begin
a:=random(N);
write(a,' ');
sr:=sr+a; //Значения массива складываются
end;
sr := (sr / N); //Сумма значений массива делится на количество значений
writeln('srednee arifmeti4eskoe = ',sr:1:2); //Выводится среднее арифметическое
readln;
end.
1*10⁴+4*10³+6*10² может не точно, проверь если что)
var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Всмысле вызначиты килькисть крейди, тут не коректне запытання