var
FD: text;
y, step, first, last: real;
begin
write('Введите начальное значение, конечное значение и шаг:');
read(first, last, step);
assign(FD, 'tabl.txt');
rewrite(FD);
writeln(FD, 'x':4, 'f(x)':10);
while (first <= last) do
begin
if (first.Between(0.41, 0.58)) then
writeln(FD, first:4:2, 'infinity':10)
else
begin
y := (2 * first + 1) / (2 * first - 1);
writeln(FD, first:4:2, y:10:4);
end;
first := first + step;
end;
close(FD);
end.
var M:array[0..15]of integer;
k, i, sum ,inp : integer;
begin
for k := 0 to 15 do begin
writeln('Введите ', k , ' элемент массива:');
readln(M[k]);
end;
for i := 0 to 15 do begin
if (i mod 2 = 0) then
begin
if (M[i] mod 2 = 0) then
begin
sum := sum + M[i];
end;
end;
end;
writeln('Вывод : ' , sum - M[0]);
readln;
end.
Объяснение: ответ к первой части.В общем: в этой программе 0 не считается чётным числом, поэтому 0-вой индекс, даже если его число чётное - не считается . Если вы с этим не согласны то вам всего лишь нужно из этой строчки: writeln('Вывод : ' , sum - M[0]); сделать writeln('Вывод : ' , sum);
Вторая задача :
var M:array[0..15]of integer;
k, i, sum ,inp : integer;
begin
for k := 0 to 15 do begin
writeln('Введите ', k , ' элемент массива:');
readln(M[k]);
end;
for i := 0 to 15 do begin
if (i mod 2 <> 0) then
sum := sum + M[i];
end;
writeln('Вывод : ' , sum);
readln;
end.
var A:array[1..N] of integer;
i,sum:integer;
begin
for i:=1 to N do begin
A[i]:=random(-100,100);
write(A[i],' ');
end;
for i:=1 to N do
if A[i]<0 then sum:=sum+A[i];
write(' ',sum);
end.