Связанный элемент,свободный элемент и вычисляемый элемент
СтолБ теПло вот так можно сделать
program name;
const
n:=15
var
i,a:array[1..n] of integer;
begin
for i:=1 to n do begin
random(a[i]);
writelm(a[i]);
end;
end.
Пол задания
Слева от троеточия - последовательность (не помню какая)
Справа от троеточия - формулы вычисления этой последовательности, следовательно тебе надо разобрать только формулу.
Я попробую тебе объяснить, а ты уже попробуй сделать схему (не помню, как схема строится):
m - постоянно увеличивается на +1, так и получается последовательность (например, m=2 -> x^3/3 и т.д.).
Можно воспользоваться циклом, а в цикле прописать то, что m увеличивается на +1 -> m=m+1, и прописать формулу (x^2*m-1)/(2*m-1)
Вот, в принципе, и всё. Надеюсь разберёшься дальше
Program z1;
var a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
read(a[i]);
if (a[i] mod 50 <>0) or (a[i]>10) then a[i]:=11;
end;
for i:=1 to 14 do writeln(a[i]);
end.