Ответ:
На скриншотах.
Объяснение:
Как вариант можно написать программу так.
Var
a:array[1..100] of integer;
i,n,k,s:integer;
begin
write('Введите количество членов последовательности: ');
readln(n);
a[1]:=1;
a[2]:=1;
s:=0;
for i:=3 to n do
a[i]:=a[i-2]+a[i-1];
write('Последовательность Фибоначчи: ');
for i:=1 to n do begin
s:=s+a[i];
write(a[i], ' ');
end;
writeln;
write('Введите искомый член последовательности: ');
readln(k);
for i:=3 to k do
a[i]:=a[i-2]+a[i-1];
writeln(k, '-й член последовательности: ',a[i], ' ');
writeln('Сумма ',n,' первых членов последовательности: ',s);
end.
var i,n:real;
begin
read (n);
for i:=1 to 10 do
write (i*n/10)
end.
Var
d, min, max, i: integer;
begin
readln(d);
min := d;
max := d;
for i := 1 to 6 do
begin
readln(d);
if min > d then min := d;
if max < d then max := d;
end;
writeln('max = ', max);
writeln('min = ', min);
end.