1:
program prog;
var i,n,s,a:integer;
var chk:boolean;
begin
chk:=False;
s:=1;
write('Введите количество вводимых чисел: '); readln(n);
for i:=1 to n do
begin
write('Введите ', i, '-е число: '); readln(a);
if i mod 2 = 0 then
begin
s:=s*a;
chk:=True;
end;
end;
if chk = False then s:=0;
write('Произведение чётных членов введённой последовательности равно ', s);
end.
2:
program fib;
var
F1,F2,n,i :Integer;
begin
write('Введите количество чисел Фибоначчи: '); readln(n);
F1:=1;
F2:=1;
For i:=1 to n do
begin
if i>2 then
begin
F1:=F1+F2;
F2:=F1-F2;
end;
write(F1, ' ');
end;
end.
ответ: N - количество чисел(вводим с клавиатуры)
K - требуемый член. К не может быть больше N , поэтому если к больше N программа требует ввести вас число К еще раз.
Объяснение:
#include <stdio.h>
#include <malloc.h>
int main(void) {
int N,k,*a,b=0 ;
printf("Введите количество введеных чисел ");
scanf("%d",&N);
while(b==0){
printf("Введите число К ");
scanf("%d",&k);
if(k>N){printf("число к не может быть больше N.");continue;}
b=1;
}
a = (int*)malloc(N* sizeof(int));
for(int i=0;i<N;i++)
{
printf("введите ");printf("%d",i+1); printf("-ый член ");
scanf("%d",&a[i]);
}
printf("К-ый член набора равен = ");printf("%d",a[k-1]);
free(a);
return 0;
}
