заполнить массив из 10 целых чисел: 1) нулями 2)нулями кроме 1-го и последнего (первое и посление =1)3) кратное 5 4)числа фибоначи
Ответы
Ответ дал:
0
var a,b,c,d:array [1..10] of integer;
i,x,y,z:integer;
begin
for i:=1 to 10 do
begin
a[i]:=0;
if (i=1) or (i=10) then b[i]:=1 else b[i]:=0;
c[i]:=i*5
end;
for i:=1 to 10 do write (a[i],' ');
writeln;
for i:=1 to 10 do write (b[i],' ');
writeln;
for i:=1 to 10 do write (c[i],' ');
writeln;
x:=0;
y:=1;
d[1]:=x;
d[2]:=y;
for i:=3 to 10 do begin
d[i]:=x+y;
z:=y;
y:=x+y;
x:=z
end;
for i:=1 to 10 do write (d[i],' ');
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад